Help for this page
open my $fh, "<", $0; print <$fh>;
use O 'Deparse'; do something
seek *DATA, 0, 0; print <DATA>; __DATA__