Help for this page

Select Code to Download


  1. or download this
    my $gah = join ("<br>", map {'$_ = $somehash{$_}'} keys %somehash);
  2. or download this
    my $first = "Hello World\n";
my $second = "$first";
print "$second";
  3. or download this
    use strict;
use CGI;
...
print $q->param('foo'),"\n";    # right
print $q->param('foo')."\n";    # right
print "@{[$q->param('foo')]}\n" # right, but twisted ;)