#!\strawberry\perl\bin\perl.exe
use strict;
use File::Spec::Functions;
my $logfile = catdir($ENV{AppBase}, "mylogfile");
print "opening $logfile ...\n";
open (LOGFILE, ">>$logfile") || die "couldn't open log file \n";
print LOGFILE "test log file line";
close(LOGFILE);

##</code><code>##

Insecure dependency in open while running with -T switch at MyCgiProg.pl line 8.