sub Account_Setup {
    my $acct_type = ${shift()};
    print "Account Type: $acct_type\n";
}