perl -e 'if(system("pppd")) { print "it worked\n";}'