open my $sourcefh, '<', 'source.cbl' or die $!;