yes "s" | perl -d (your script here) > logfile