Select Code to Download

printStatement('foo');

...
# or just

sub printStatement { print shift }

$HelloWorld::var = 'foo';
printStatement();

my $important_message = 'foo';
printStatement(\$important_message);
...
    my $var = shift;
    print $$var;
}