my $dos = Win32::OLE->new('Cmd.application') or die "oops\n";
 $dos->{visible} = 1;

##</code><code>##

dir:       opendir
cd:        chdir
ipconfig:  qx(PATH/ipconfig.exe)