Select Code to Download

    use strict;
    use Data::Dumper;
...
    __DATA__
    bob's your uncle
    Ovid is in da house

    #!/usr/bin/perl
    $foo = "bar";
...
        print "$foo\n";
    }
    print "$foo\n";