use Win32::OLE;
my $queueInfo = Win32::OLE->new('MSMQ.MSMQQueueInfo');
$queueInfo->{pathname} = '.\private$\foo';
$queueInfo->Create();