Select Code to Download

   while (chomp($_ = <FILE>)) {
      do stuff;
   }

my $user = $q->param('username');
my $pass = $q->param('password');
...
    }
    return 0;  
}