/usr/bin/perl $@
cat $1

##</code><code>##

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

##</code><code>##

use foo;
use strict;
use warnings;
print "hello world";