.......
.........
Uploading the file...
eof
my $file = $q->upload('file');
my $filename = $file;
#add starts here
if ($filename !~ /(.gif|.jpeg|.jpg)$/){
print 'Files must be gif,jpeg, or jpg.
Please reselect
';
my $script = 'http://zentara.zentara.net/~zentara/up2.html';
print "'Try again,please.'";
exit;
}
#add ends
$filename =~ s/^.*\///g;
$filename =~ s/^.*\\//g;
$filename =~ s/\-/_/g;
$filename =~ s/^\.*//g;
$filename =~ s/ /_/g;
my $allpath = $file;
if ($filename =~ /\./) {
$filen = $`;
$ext = $';
}
.......
.......