Code Let's call it first.pl 1~$ nl -ba first.pl 21 #!/usr/bin/env perl 32 43 use strict; # important pragma 54 use warnings; # important pragma 65 76 print "What is your username? "; # print out the question 87 my $username = <STDIN>; # ask for username 98 chomp($username); # remove “new line” 109 print …