perl getlines.pl