Select Code to Download

#!/usr/bin/perl
use strict;
...
my $infile="/tmp/$username.inFile";

my ($script,$infile=mainMenu($infile);

sub mainMenu {
    my $infile=shift;
...
            next;
        }
}

sub getInput {
    my $message = shift;
...
    chomp($return=<STDIN>);
    return $return;
}

sub addAccount {
    my $infile = shift;
...
        }
    }
}