Select Code to Download

frobnicate( $_ ) for `cat foobar.txt`;

{
  local @ARGV = 'foobar.txt';
  frobnicate( $_ ) while <>;
}

frobnicate( $_ ) while <>;

#!perl -n
frobnicate( $_ );