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

my $user="bobjones";
my $password='abc$123a';

test($user,$password);

sub test {
    my $user = shift;
    my $password = shift;

    print "$user - $password\n";
}