open(FILE, "$cmd $switches $file|") 

##</code><code>##

    my $cmd = $self->{_is_vms} ? "MCR $^X" : ( $^O eq 'MSWin32' ? Win32::GetShortPathName($^X) : $^X);