$ cat taint_test.pm
package taint_test;

use strict;
use warnings;

chdir +(split /:/, $ENV{PATH})[0];