#!/usr/bin/perl -w

$command = $ARGV[0];

my $execOne = "$command";
my $execTwo = "$command &> log ";


# Executing ExecOne

eval 
{
   system($execOne);
};

if ($? & 127)
{
    $segval = $? & 127;
    print "ExecOne Seg: $segval\n";
} 
else
{
    print "ExecOne: No fault\n";
}

# Executing ExecTwo
  
eval 
{
   system($execTwo);
};

if ($? & 127)
{
    $segval = $? & 127;
    print "ExecTwo Seg: $segval\n";
}
else
{
    print "ExecTwo: No fault\n";
}   

##</code><code>##

ExecOne Seg: 11
ExecTwo: No fault