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