http://qs321.pair.com?node_id=568732


in reply to Re^3: Converting a source code
in thread Converting a source code

Or the 'better practice' form:
open my $sourcefh, '<', 'source.cbl' or die $!;