Select Code to Download

sub foo {}

...
foo(scalar substr "hello", 10, 1); # but you need something like this

print "This only gets printed if the last line didn't cause a fatal er
+ror\n";

perl -e '+$a = "Hello, world!\n"; print $a'
Hello, world!