#!/usr/local/bin/perl
my $cmd = shift;
open STDOUT, '>/dev/null';
open STDERR, '>/dev/null';
system "perl $cmd";
exit 0 if $? & 128;
exit 1;