#!/usr/bin/perl -w
use strict;

my ($user, $pass) = get_password ();

do_something ($user,$pass);

sub do_something {
  my ($user,$pass) = @_;
  print "\nUSER: $user\nPASS: $pass\n";
}

sub get_password {
  $ENV{'PATH'} = "/bin:/usr/bin";
  print "Username: ";
  my $username = <STDIN>;
  chomp $username;
  print "Password: ";
  system ('stty -echo');
  my $password = <STDIN>;
  system ('stty echo');
  print "\n\n";
  return ($username,$password);
}