Can you post simple test code?

I've taken to starting my programs with:

#!/usr/bin/env perl

use Modern::Perl;

exit main(@ARGV);

sub main
{
    my @args = @_;

    ...

    exit 0;
}
[download]

... but @ARGV is available by name even within main().