$ cat ptt.pl 
use strict;
use warnings;
use Path::Tiny;

path ($ARGV[0])->spew (@ARGV);
$ perl -T ptt.pl foo
Insecure dependency in sysopen while running with -T switch at /usr/share/perl5/vendor_perl/Path/Tiny.pm line 830.
$