Select Code to Download

user@localhost:~/sandbox$ perl script.pl
Enter a name to print it's family name :
Alis
Alis is already there, and its family name is Williams user@localhost:
+~/sandbox$

#!/usr/bin/perl -w
use strict;

...
} else {
    print "I don't know anyone by the name $name\n";
}