Help for this page
open "SOURCEFILE", '<', "source.cbl" or die "Can't open: $!";
open SOURCEFILE, '<', "source.cbl" or die "Can't open: $!";