# 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");