Select Code to Download

<font size="-1">#!/usr/bin/perl -w
use strict;
...
   foo: $foo
   bar: $bar
EOT

=====

...
   variable names appear.
   foo: 123.45
   bar: Martha Stewedprune

my $url = "http://www.maperl.com";
my $text = "Mother of Perl";
...

<a href="$url">$text</a>
EOT

<a href="http://www.maperl.com">Mother of Perl</a>