#!Perl/bin/perl.exe -w
use strict;

use File::Spec::Win32;
use FileHandle;

# print "Enter the model handle\n";
# print " mh=: "; chomp (my $mh = <STDIN>);

my $fh=FileHandle->new(">Model_Information.txt");

&phork;

sub phork 
{
  open(STDOUT, '> ' . File::Spec->$fh);
  open(STDERR, '> ' . File::Spec->devnull);
}

system "SomeSystemCall.exe";