my $infile = upload ('file') or die "File was not uploaded correctly\n";