open IP, $file or (print "\n\tNo kin d\n" , 
                     print "\n\tI bet ye dinna see this\n" , 
                     return 0  ) ;
[download]

That should be written thus:

open IP, $file or  do { print "\n\tNo kin d\n";
                     print "\n\tI bet ye dinna see this\n"; 
                     return 0};
[download]

Dave.