open (my $foo, $0);
print <$foo>;
close $foo;