Perlでスクリプト書くとき

http://d.hatena.ne.jp/tokuhirom/20091207/1260156962

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

my $port = 8080;
my $global_var = 1;
# ここにグローバル変数を列挙する

GetOptions(
  'p|port=i' => \$port
) or pod2usage();

&main;exit;

sub main { ... }

# ここにいろんな関数をかく

__END__

=head1 SYNOPSIS

    foo.pl

以下しか、書いてない。

use warnings;
use strict;

とりあえず、mainという関数をしっかり書こうと思った。