Help for this page
C:\Windows\My Documents\foo.jpg
my $filename = $cgi->param('uploadedfile'); if($filename =~ /\\/) { my @tmp = split(/\\/,$filename); $filename = pop(@tmp); }