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

##</code><code>##

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