#! /usr/bin/perl
use strict;
use warnings FATAL => qw(taint);

my $tainted = shift;

open (OUCH, "> $tainted");
close (OUCH);