use CGI;

my $req = new CGI;

my $File = $req->param('file');
$File =~ /.*\."?(\w*)"?$/;
my $Filename = lc($1);

open (FILE, ">./$Filename");
while (read ($File, my $Buffer, 1024)) {
    print FILE $Buffer;
}
close FILE;

eval("Therory: I have a life"); #returns false :'{