Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
  my ($user,$pass) = @_;
  print "USER: $user\nPASS: $pass\n\n";
}
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
  print "\n\n";
  return ($username,$password);
}
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    die "ERROR: No config file.\n";
  }
}