Select Code to Download

#!/usr/local/bin/perl
use strict;
...
} else {
    print "\nNot Found.1.";
}

$ perl /tmp/prueba.pl

Found..
pos = 10