#!I:\Interwoven\TeamSite\iw-perl\bin\iwperl -T --
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser set_message);
use File::Copy qw/ copy /;
Main( @ARGV );
exit( 0 );
sub Main {
    set_message("It's not a bug, it's a feature!");
    local $CGI::POST_MAX = 1024 * 100;  # maximum upload filesize is 100K
    my $q = CGI->new;
    print $q->header;
    warningsToBrowser(1);
    
    print buildForm( $q );

    if (  !$q->param('filename') && $q->cgi_error() ) {
        ...
    } else {
        save_file($q);
    }
    print $q->end_html;
}


sub save_file {
    my( $q ) = @_;
    my $filename    = $query->param('uploaded_file');
    
    my $destination_filename = File::Spec->catfile( $hardcoded_destination_directory, WashFilename( $filename  ) );

    copy( $filename->handle, $destination_filename  ) or die "Copy to ( $destination_filename) failed: $!";
}