use CGI;
use File::Basename;

my $q = new CGI;

# $file set to 'C:\Windows\images\hello.gif'
my $file = $q->param('file');

# $filename set to hello.gif
my $filename = basename($file);

##</code><code>##

use CGI;
use File::Basename;

my $q = new CGI;

# $file set to 'C:\Windows\images\hello.gif'
my $file = $q->param('file');

# Added this line
fileparse_set_fstype("MSDOS");

# $filename set to hello.gif
my $filename = basename($file);

##</code><code>##

fileparse_set_fstype('MSDOS') if $name =~ /\\/;