#!/usr/bin/perl system("echo foo"); print "line 1"; print "line 2";