#!/usr/bin/perl 

use strict;
use warnings;
use IO::Prompt;

my $user = prompt "Enter username: ", -echo => "*";
my $pass = prompt "Enter password: ", -echo => "*";