perl -e 'system q{gedit &} scalar <>;'