perlスクリプトのスケルトン

#!/usr/bin/perl
$|=1;
use strict;
use warnings;
use Getopt::Long;
use File::Temp qw/ tempfile tempdir /;
use File::Basename;
use FindBin qw($Bin);



exit (main());


sub main
{
   
   return 0;
}

sub say
{
  print @_ . "\n";
}