my $filename = $q->param("file");
my @data_from_file = get_file_data($filename);
sub get_file_data
{
my ($filename) = @_;          
open (INPUTFILE, UPLOAD_DIR . $filename) || die "Can't open $filename";
my @data_from_file;
while (<INPUTFILE>) {
    push @data_from_file, $_;
    }
close (INPUTFILE) || die "Can't close $filename";
unlink (UPLOAD_DIR . $filename) || die "Can't delete $filename";
return @data_from_file;
}