open SRC, '<', $0 or die;
print for <SRC>;
close SRC;