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