Select Code to Download

my $filename = $query->param("file_uploaded");
open(FH, "<$filename or die "cannot open!");

my $filename = $query->param("file_uploaded");
while (<$filename>) {
 # do something
}