Select Code to Download

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

perl gube_g.pl

Found.0.
...
Found.2.
Found.3.
Not Found.4.