#!/usr/local/bin/perl -Tw

sub is_tainted {
    no warnings;
    no strict;
    return ! eval { join('',@_), kill 0; 1; };
}