sub main
{
    # everything you'd normally execute here
}

main() unless ($ENV{HARNESS_ACTIVE});