Select Code to Download

DOCUMENT ROOT = /home1/pryrtcom/public_html
inside eval block to avoid dying on the tainted environment variable
...
inside second eval block to avoid dying on the tainted environment var
+iable
eval 2 didn't die if this prints
it did not die because I untainted /home1/pryrtcom/public_html.

#!/usr/bin/perl -T
use warnings;
...
    1;
} or die "eval failed: $@";