#!/usr/bin/perl

use Term::ReadLine;

my $term = new Term::ReadLine 'Demo';

my $prompt = '$\\HEAD\\';
my $dir    = "foo/bar";  # user-editable default input

my $user_input = $term->readline($prompt, $dir);
print "user_input: $user_input\n";