stubPod.pl

use strict;
use warnings;

die "Usage file.pod NAME DESC \@CATEGORY" if $#ARGV < 3;

my ($file, $name, $desc, @category) = @ARGV;

open FH,'>',  $file;

print FH 
"\=pod

\=head1 NAME

$name -- $desc

\=head1 CATEGORY

TODO, ".join ( ', ', @category) ."

\=cut
";

close FH;