Select Code to Download

use strict;
use warnings;
...
}

system("perl hear.pl $string1 $string2 $string3");

use strict;
use warnings;
...
        print "$i\t: $arg\n";
        $i++;
}

1       : \
2       : koisqd\
...
16      : \
17      : poqsdpo\
18      : .posd