if the file doesn't exist in the local directory open will fail. so try it with the full path:

open ( EXTRACT1,"< $tempdir/$extract1") || die "splitter fail : $!";
[download]

erm, don't remember if $tempdir has an trailing slash in your example but IIRC UN*X filesystems don't complain if there are two of them ...