Shell Programming and Scripting

#!/usr/bin/perl

list_proc();
print "$name";
print "Enter name to check if you're on the guest list\n";
$entry = <STDIN>;
chomp ($entry);

if ($entry ne $name) {
        print "You're not on the list!";
} else {
        print "Enjoy your evening $entry";
}

sub list_proc {
open (WORDSLIST, "file")|| die "can't open wordslist";

while ($name = <WORDSLIST>) {
        chomp($name);
        print "$name\n";
}
close (WORDSLIST);
}