print "username: ";
my $username = <STDIN>;
print "password: ";
my $password = <STDIN>;
chomp $username;
chomp $password;