my @pkg = 5544; print "username: "; my $username = ; chomp($username); XRC::changePkg($username, @pkg);