Select Code to Download

#!/usr/local/bin/perl -Tw

...
    no strict;
    return ! eval { join('',@_), kill 0; 1; };
}

use strict;

...
Tainted
Tainted
Insecure dependency in chdir while running with -T switch at ./foo.pl 
+line 21, <> line 1.

my $validchars = 'A-Za-z0-9_.-';
if ( $site =~ /^([$validchars]+)$/o ) {
...
    warn "Invalid site: $site\n";
    next;
}

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$