#! perl -slw
use strict;
use Win32::GuiTest qw[ SendKeys ];

system 1, q[ runas /user:UserName "c:\path\\to\\the\\Command /switches Args" ];

sleep 1;

SendKeys( 'tHePa55W0rD~', 50 );