Select Code to Download

#!/usr/bin/perl -w

...
print "\nYour username/password is: ";
print $db{"username"};
untie %db or die "Can\'t untie database.\n";