chomp(my $username = <>);
# ... etc