Select Code to Download

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

print Data::Dumper->new([\%hash],[qw(hash)])->Indent(2)->Quotekeys(0)-
+>Dump;
# the above is from the Data::Dumper tutorial on this site.

#!/usr/bin/perl -wT
use strict;
...
    "Cell phone number: "), Td(textfield(-name=>'cell', -override=>1))
+)),
    submit, end_form;
}