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