#!perl -w
use strict;

use Tk;

my $main = new MainWindow;

my $entry = $main->Entry(-show => '*')->pack;

MainLoop;
[download]

See the -show option in the Tk::Entry man page. Example:

#!/usr/bin/perl

use warnings;
use strict;
use Tk;

my $input = '';

my $m = tkinit;
$m->Entry(
    -show           => "*",
    -textvariable   => \$input,
)->pack;
$m->Button(
    -text       => 'Quit',
    -command    => sub { $m->destroy },
)->pack;

MainLoop;

print "input was: $input\n";
[download]