#!/usr/bin/perl -T --

use strict;
use warnings;

use MIME::Base64;
use Scalar::Util qw' tainted ';

print 'tainted ', tainted($ENV{PATH}),"\n";
print 'enc ', tainted(encode_base64($ENV{PATH})),"\n";
print 'dec ', tainted(decode_base64(encode_base64($ENV{PATH}))),"\n";
__END__
tainted 1
enc 0
dec 0