Select Code to Download

#!/usr/bin/perl --
use strict;
...
Main( @ARGV );
exit( 0 );
...

$ echo hi there | perl -lanse " print qq{$greet\t$F[1]}"  -- -greet=by
+e
bye     there

...

$ perl -lanse " print qq{$greet\t$F[1]}"  -- -greet=bye stuff
bye     there