Select Code to Download

#!/usr/bin/perl -w
use strict;
use vars qw/ $Destination $Program_Type $Program_Name $Incomming_Foo
...
}
close(DATA);
exit;

#!/usr/bin/perl
use strict;

...
   print "$Decision,$Date_Applied,$Appl_Number\n";
}
exit;