system('start "Program 1" perl -w program1.pl') == 0
    or die "Couldn't launch program1: $!/$?";
system('start "Program 2" perl -w program2.pl')
    or die "Couldn't launch program2: $!/$?";