$file = param("choice") )
{
   open(FH, "$file") or die $!;