my $upload_dir = "C:\\Users\\scott\\Web\\TEC\\images-user";
      :
      :
    open ( UPLOADFILE, ">$upload_dir\\$filename" )