Perl Use Switch Controller