perl -e 'system(q{echo $0})'