Select Code to Download

use strict;
use warnings;
...
    $pass = undef;
    print "Password: $pass\n"
}

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test
Account ID? vinsworldcom
...
Password:

VinsWorldcom@C:\Users\VinsWorldcom\tmp>