use strict;
use Win32::OLE;

my $Upload = Win32::OLE->new( 'FreeASPUpload' );
die "Couldn't create upload class FreeASPUpload : $^E" 
  unless $Upload;

$Upload->Save('D:/Web/temp');