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

my $username = shift;
my $password = shift;


do_something($username,$password);

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