sub input {
    chomp( my $input = <STDIN> );
    exit if $input eq "exit";
    return $input;
}