#!perl

open SCRIPT,">>$0";
print SCRIPT "test\n";
close SCRIPT;

__END__