Help for this page
Exiting eval via last at line 8, <DATA> line 5.
#!/usr/bin/perl -wT use strict; ... peach grape orange
__DATA__ banana ... cow pig grape