Perl TTY input sample

gistfile1.txt

#!/usr/bin/env perl

use strict;

my $name = &promptUser("What is your name", "Steve");
print 'Hello, ', $name, "!\n";

sub promptUser {
    my ($promptString,$defaultValue) = @_;

    print $defaultValue
        ? "$promptString? [$defaultValue]: "
        : "$promptString? ";

    local *TTY;
    open(TTY, "<", "/dev/tty");
    my $input = <TTY>;

    chomp($input);

    if ("$defaultValue") {
        return $input ? $input : $defaultValue;
    } else {
        return $input;
    }
}