Select Code to Download

#!/usr/bin/perl
use strict;
...

print br(),                  a( {href=>'games.pl'}, img{src=>'../data/
+images/games.gif'} );
print p( {-align=>'right'},  a( {href=>'show.pl?name=showlog'},  font(
+ {-size=>2, -color=>'Lime'},  b( 'Last Update: 30/4/2005' ))));

$data =~ s/\n/\\n/g;
$data =~ s/"/\\"/g;
...
var textToShow = "$data";

{snip]