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