print NEWSCRIPT <<EOPerlTpl;
#!/usr/bin/perl
# $name
#
use warnings;
use strict;

EOPerlTpl