#! /usr/bin/perl -T use strict; use warnings; use 5.010; use Scalar::Util qw( tainted ); my $string = shift @ARGV // 'default'; say "'$string' is tainted: ", tainted($string);