Select Code to Download

my $max;
while( my $file = readdir(DIR) ) {
   $max = $file if $file gt $max;
}
print $max;