#!/usr/bin/perl
$pgm1 = "ls -l .";
$pgm2 = "ls -l /tmp/bogus/directory";
system ($pgm1) || print "program 1 succeeded\n";
system ($pgm2) && print "program 2 failed\n";