#!/usr/bin/perl -U

#print join(" ", @ARGV, "\n");

$< = 0;

system(@ARGV);

exit $!;
