#!/usr/bin/perl
$whatever = shift;

eval <<'EndOfEval';  $start = __LINE__;
   .
   .           # your ad here
   .
EndOfEval

# Cleanup

unlink "/tmp/myfile$$";
$@ && ($@ =~ s/\(eval\) line (\d+)/$0 .
	" line " . ($1+$start)/e, die $@);
exit 0;
