!perl
exit shift;