Select Code to Download

#!/bin/perl -w
use strict;
...
    $input=<STDIN>;
    chomp $input;
}

#./retest
1234
...
#./retest
123456789
#