Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  my ($file) = @_;
  print "Sending $file . . .\n";
}