Select Code to Download

system( "$^X -pl -e 's/foo/bar/g' $rfile $afile" );

exec "$0 $rfile $afile" unless @ARGV;
while (<>) {
    # Do whatever you want here.
}