Select Code to Download

use strict;
use warnings;
...
for (keys %args){
    print "$_: $args{$_}\n";
}

perl script.pl -i stevieb -p secret -s user

txtpatid: stevieb
txtpatpw: secret
txtpatserver: user