Here's what i usually do in cases like this (except i'm using ActivePerl). I just have a small, "compiled" Perl script that i call instead of the real binary.

This is from memory, but something like this should do the trick:

#!/usr/bn/perl

use strict;
use warnings;

open(my $ofh, '>', 'C:/some/path/filename.txt') or die($!);
print $ofh join("\n", @ARGV);
close $ofh;
[download]