Select Code to Download

    if ($addmodule =~ /yes/i) {
        print "\nThis script does NOT add a ';' for you!\nSay 'done' w
+hen you done..\nModules: ";
...
        print "I assume no.\n";
        _makeperl();
    }

    if ($addmodule =~ /yes/i) {
        my @modules;
...
        print "I assume no.\n";
        _makeperl();
    }

sub _makeperl {
    open (NEWSCRIPT, '>', $name);
...
            print NEWSCRIPT "use $mods";
        }
    }

sub _makeperl {
    my @mods = @_
...
            print NEWSCRIPT "use $mod";
        }
    }