Select Code to Download

#!/usr/bin/perl

...
}
# print the form...

  my $select = $dbh->prepare("select email,password from users where u
+sername=?");
  $select->execute( $username );
...
  } else {
     #login was okay, so redirect...
  }