Select Code to Download

#!/usr/bin/perl
use strict;
...

print "input: $input \n";
print "output: $output \n";

frink@scanbox:~ $ ./397370.pl 
input: superfrink 
output: superfXink 
frink@scanbox:~ $