Select Code to Download

sub SendFile
{
...

   close IN;
}

sub RecieveFile
{
...
   close(OUT);
   print("Finished\n");
}

use strict;

...

close(OUT);
close(IN);