--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/password.pm	Fri Nov 04 06:29:26 2005 +0000
@@ -0,0 +1,19 @@
+package password;
+
+sub ask($) {
+    local $| = 1;
+    return undef if not -t;
+
+    print $_[0];
+    system(stty => "-echo");
+    my $ans = <STDIN>;
+    system(stty => "echo");
+    print "\n";
+
+    chomp $ans;
+    return $ans;
+}
+
+1;
+
+# vim:sts=4 sw=4 aw ai sm: