package SelfRecord;
use strict;

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

1;

##</code><code>##

#!/usr/bin/perl -w
use strict;
require SelfRecord;

print "Hello!"

##</code><code>##

#!/usr/bin/perl -w
use strict;
require SelfRecord;

print "Hello!"

__END__
Hello!