if ($addmodule =~ /yes/i) {
        print "\nThis script does NOT add a ';' for you!\nSay 'done' when you done..\nModules: ";
        while (<STDIN>) {
            last if ($_ =~ /done(;)?/i);
            push @modules, $_;
        }
        _makeperl();
    } elsif ($addmodule =~ /no/i) { _makeperl();}
    else { 
        print "I assume no.\n";
        _makeperl();
    }

##</code><code>##

    if ($addmodule =~ /yes/i) {
        my @modules;
        print "\nThis script does NOT add a ';' for you!\nSay 'done' when you done..\nModules: ";
        while (<STDIN>) {
            last if ($_ =~ /done(;)?/i);
            push @modules, $_;
        }
        _makeperl(@modules);
    } elsif ($addmodule =~ /no/i) { _makeperl();}
    else { 
        print "I assume no.\n";
        _makeperl();
    }

##</code><code>##

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";
        }
    }

##</code><code>##

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";
        }
    }