package foo;
use Filter::Simple;
FILTER {
  $_ .= "\n;print qq{\n===SOURCE CODE===\n$_};";
};
1;