open my $fh, "<", $0;
print <$fh>;