Select Code to Download

#!/usr/bin/perl -T
use strict;
...
    open( FH, '+>', $params{A} ) or die "$params{A} : untaint \$params
+{A}";
    close FH;
}

$ t-taint.pl
type 'file' to test: file
Insecure dependency in open while running with -T switch at ./t-taint.
+pl line 46, <> line 1.

# untaint parameters
for( keys %params )
...
        display_message( $messages{error} ) && exit;
    }
}