Select Code to Download

BEGIN { require Foo; Foo->import(@LIST) }

while (<>) {
     # ... your code here ...
     print $_;
}

perl -p -e "$_ = reverse $_" f1

print -p -e "$_ = reverse $_; $i ++; END { print qq'Total lines $i.' }
+" f1

$a = 6;
*b = \ $a;
...
*b = \ @a;
pop @b;
print "@a"; # prints 1 2

use Shell;

$a = Shell::cat("file.text");
Shell::cp("a.txt", "b.txt");

package Shell;

...
sub cp {
     `cp @_`
}

package Shell;

...
     $AUTOLOAD =~ s/^.*:://; # Strip out the package name from the sub
+'s name (in this case Shell::)
     `$AUTOLOAD @_`
}