Just wondering, but where is $rawimage set? If it isn't and you meant to use $rawfile (which I think is the case), then you may wish to use strict;. Of course, this causes the read to issue warnings and whatnot which is why upload is now available. Hope this helps. If not, that's the only problem that I see. (without going into considerations for security and whatnot...i.e. what's stopping someone from eating the hard drive alive?)

antirice    
The first rule of Perl club is - use Perl
The ith rule of Perl club is - follow rule i - 1 for i > 1