#!/usr/bin/perl -T

use Data::Dumper;

$S::taint = $ARGV[0];

while (my ($name, $glob) = each %S::) {
    if (defined $$glob) {print Dumper($$glob)}
    print Dumper("$$glob") if (defined $$glob);
    print Dumper($$glob) if (defined $$glob);
}