Help for this page

Select Code to Download


  1. or download this
    my $codeAsText = do{
    local( @ARGV, $/ ) = $0;
    <>;
};

print $codeAsText;
  2. or download this
    open (my $foo, $0); 
print <$foo>; 
close $foo;