use File::Path;

# ...

unless (-d $upload_dir)
{
     mkpath($upload_dir);
}