#!/usr/local/bin/perl
$_=q{

my $app = sub{ 
  [ 404, [ "Content-Type", "text/plain" ], [ "Blog Not Found" ] ]
};

print"\$_=q{$_};eval";

"Just Another Perl Hacker";

};eval