print "Enter a first name:  " ;
$fname = <STDIN> ;
chomp $fname ;