# This is program omoshiroi.pl
use strict;
use warnings;

sub systemx($) {
  my $cmd=shift;
  print "EXECUTING: $cmd\n";
  system $cmd;
}

my $tmpfh=$ARGV[0];
systemx("dir $tmpfh");
systemx("type $tmpfh");
systemx("cmd /c type $tmpfh");

##</code><code>##

abc.bat

##</code><code>##

omoshiroi.pl abc.bat

##</code><code>##

H:\tmp>omoshiroi1.pl abc.bat
EXECUTING: dir abc.bat
 Datenträger in Laufwerk H: ist CIFS.HOMEDIR
 Datenträgernummer: 0000-0000

 Verzeichnis von H:\tmp

15.05.2008  14:00                   65 abc.bat
               1 Datei(en)             65 Bytes
               0 Verzeichnis(se),   1.239.298.048 Bytes frei
EXECUTING: type abc.bat
abc.bat not found
EXECUTING: cmd /c type abc.bat
pwd
. $HOME
.bash_profile
echo $PATH
sview fischron_exp_dv ls -a