#!/usr/bin/suidperl

print "$< $>\n";
print "$( $)\n";
exec @ARGV;
