Select Code to Download

sub get_oldest_file
{
...
   closedir D;
   return $oldest_name;
}

sub GetMessage {
    my $filename;
...
        close MSG;
    }  
}