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");