#!/usr/bin/perl
exec"cat $0"

##</code><code>##

#!/usr/bin/perl
die`cat $0`