Select Code to Download

@ARGV = glob 'datafile? datafile?? datafile???';

@ARGV = sort { my $an = substr $a, 8; my $bn = substr $b, 8; $an <=> $
+bn } glob 'datafile*';