Table and Pie Chart with Tabs

#!/usr/bin/perl use strict; use warnings; use CGI qw(:standard); # HTML Template my $html_template = <<'HTML'; Table and Pie Chart with Tabs

Table and Pie Chart with Tab

%TABLE_ROWS%

ID	Name	Age	City

%TABS%

%TAB_CONTENTS% HTML # Sample data for the table (can be dynamic) my @table_data = ( { id => 1, name => "John Doe", age => 28, city => "New York" }, { id => 2, name => "Jane Smith", age => 34, city => "Los Angeles" }, { id => 3, name => "Sam Johnson", age => 25, city => "Chicago" }, ); # Generate table rows my $table_rows = ''; foreach my $row (@table_data) { $table_rows .= "{id}\">\n"; $table_rows .= "$row->{id}\n"; $table_rows .= "$row->{name}\n"; $table_rows .= "$row->{age}\n"; $table_rows .= "$row->{city}\n"; $table_rows .= "\n"; } # Generate tabs my $tabs = ''; for (my $i = 1; $i <= 7; $i++) { $tabs .= "

Tab $i

\n"; } # Generate tab contents my $tab_contents = ''; for (my $i = 1; $i <= 7; $i++) { $tab_contents .= "

\n"; $tab_contents .= "

This is content for Tab $i.

\n"; $tab_contents .= "

\n"; } # Replace placeholders in the template $html_template =~ s/%TABLE_ROWS%/$table_rows/g; $html_template =~ s/%TABS%/$tabs/g; $html_template =~ s/%TAB_CONTENTS%/$tab_contents/g; # Output the final HTML print header(-type => 'text/html', -charset => 'UTF-8'); print $html_template;