sub _makeperl { my @mods = @_ open (NEWSCRIPT, '>', $name); print NEWSCRIPT "#!/usr/bin/perl\n\nuse warnings;\nuse strict;\n"; if (@mods){ # if module is defined, include them to the template for my $mod (@mods) { print NEWSCRIPT "use $mod"; } }