echo "h" | perl filename.pl