system(1,"perl -w program1.pl")
    or die "Couldn't launch program1: $!/$?";