Select Code to Download

sub highest_number{
use strict;
use File::Basename;
...
my $winner  = pop @matching;
return $winner  
}

$ history | tail - 10
==> standard input <==
 1987  pt 1.a.pl 
...
 1996  history | tail - 10
tail: cannot open '10' for reading: No such file or directory
$

$ cat 1.a.pl
#!/usr/bin/perl -w
use 5.011;
...

}
$

$ cat 1.manifest 
2.haukex.pl
3.haukex.pl
4.haukex.pl4.ping3a.pl5.haukex.pl5.ping3a.pl2.k.pl/n2.k.pl
3.k.pl
$