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