system q{echo | perl -e \"<STDIN>\"}