perlスクリプトのテンプレート

#!/usr/local/bin/perl -w

# podドキュメント ###########
=head1 NAME
	$RCSfile$
	$Id$
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 AVAILABILITY
=head1 ENVIRONMENT
=head1 AUTHOR
	$Author$
=head1 FILES
=head1 SEE ALSO
=head1 DIAGNOSTICS
=head1 BUGS
=head1 NOTES
=cut

=comment
=cut
# podドキュメントend ###########

###############################################
use strict;        # 必ず入れる
use diagnostics;   # 必ず入れる
use Carp;          # die() ではなく confess()を使用する
use Data::Dumper;  # デバッグの友
use English;       # $X系とサヨナラ
use warnings;      # 使用を推奨。5.0系では使用不可
use Class::Struct; # 構造体モジュール。5.0系ではコンストラクタでの代入が効かないので注意

if(__FILE__ == $PROGRAM_NAME){
        print "$PROGRAM_NAME \n";
        print "this is local test  \n";
        print Dumper("@data:",(1,2,3,4),"\n");
}

すぐ忘れるからメモ。パッケージ使うならCarp。