my $file = param("input");
open (FILE, $file) or die "Cannot read '$file': $!";