Help for this page
#!/usr/bin/perl ... print "\$first: $first"; print "\$last: $last";
head -1 test;tail -1 test