#!/usr/local/bin/perl
$_=q{print"\$_=q{$_};eval"};eval