perl COPIED CODE __END__