Fixed errors that occurred when a non-existent file would trip up the

stricter requirements for the newer perl 5.8.

bin/imswim

@@ -60,6 +60,7 @@ line.
     while (<TRANSFER>) {
 	chomp;
 	my @the = split(/_/, $_);
+	if (-e "$ARGV[0]/$the[0].list") { 
 	open (LIST, "$ARGV[0]/$the[0].list") 
 	    or warn "could not file *list";
         chomp;
@@ -98,6 +99,7 @@ line.
 	    }                                                                     
 	    $count = 1;      
 	    print FILEDIR "$_ -> $the[0]_$the[1]\n";
+	} # if *list exists
     } # foreach @count
     } # while TRANSFER
     close(TRANSFER);