Select Code to Download

#!/usr/bin/perl

...
    return \%switch_param;
}

$VAR1 = {
          '-P' => 'hostPassword',
...
          '-U' => 'hostLogin'
        };