perl -e 'system $_ while(<>);'