#!/lang/perl -n
# this does an fgrep ^FOO, no options supported
BEGIN {$Pat=shift; $L=length($Pat)}
substr($_,0,$L) eq $Pat and print;