package SelfRecord;
use strict;

open SELF, '>>', $0 or warn("huh?: $!");
select SELF; $|=1;
print "\n__END__\n";

1;