Help for this page
#! perl -sl use strict; ... __DATA__ ## data per your OP
C:\test>junk70 { ... }, }, }