[Perl] Hackme

[err000r]

hatte ich glaub schonma irgendwo gepostet, vielleicht auch für einen von hier lustig.

PHP-Code:

#!/usr/bin/perl
use strict;use warnings;my @d=shift;if(!defined($d[0])){die;}if($d[0]=~m/('|"|`)/s){die};eval('print('.$d[0].')); 


jo, ziel sollte klar sein. uber /bin/sh wurd ich mich freuen