Most likely, the straight translation to Win32::OLE will do the trick:

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');
[download]

Possibly, you're better off by using some Perl modules like CGI::Upload or simply CGI.pm, depending on your exact needs to upload files.