#!/usr/bin/perl -w

# system ('echo', 'hi 0') or die $@;    # INCORRECT WAY TO CHECK FOR FAILURES

my $ret = system ('echo', 'hi 1');
die $@ if $ret;

die $@ if system ('echo', 'hi 2');      # Works but i don't think it is clean
__END__
hi 1
hi 2