Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
print $cgi->p("Login: " . $customObject->login()),
      $cgi->p("Password: " . $customObject->password()),
      $cgi->end_html();

package CustomObject;

sub login {
...
}

1;