main</c< function:
<code>
#!/usr/bin/perl
use warnings;
use strict;

exit !main(@ARGV);

sub main {
  ...
}

sub foo {
}