#!/usr/bin/perl -T
# This is taint.pl

use strict;
use warnings;
use IO::File;

my $fn=$ARGV[0] or die "Missing filename";
my $fh=IO::File->new();
$fh->open($fn,'w') or die "open $fn failed: $!";
$fh->print("This should not happen!");