>>785
どうせなら
sub main(@)
{
　 　blah blah blah...
}
unshift @ARGV, $0;
main @ARGV;