UPDATE:

One problem that occured to me later on in this script, is that I didn't
check to see if the $Outfile and $Junkfile existed. When I wrote this script,
I had already touched those filenames, so I knew they existed, and didn't
have to check for them. So I now add the following code:

if(!-e $Outfile){
  system("touch $Outfile");
}
system("touch $Junkfile");
[download]

TStanley
In the end, there can be only one!