use Net::SSH::Perl;

my $ssh = Net::SSH::Perl->new('your.host.com');
$ssh->login($login, $pass);
my ($stdout, $stderr, $exit) = $ssh->cmd("mkdir -p $dir");
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)