Select Code to Download

#!/usr/bin/perl

...
    print "before = $1 ; after = $2\n";
    print $out "$1\n$2\n";
}

your_script_name  agt  input_file.name

# or:

perl your_script_name  agt  input_file.name