use Data::Dumper;
print $cgi->pre( Dumper( $cgi ) );

##</code><code>##

$file=~m/^.*(\\|\/)(.*)/; # strip the remote path and keep the filename 
$name = $2; 

open(LOCAL, ">$dir/$name") or die $!; #open file 

##</code><code>##

( $name ) = ( $file =~ /(\w+(?:\.\w+)?)$/ ); # Note the $ which anchors to the end of string

##</code><code>##

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

##</code><code>##

my ( $sec, $min ) = (localtime( time ) )[0,1];