Select Code to Download

# read
open my $fh, '<', 'file.ext' or die $!;

# write
open my $wfh, '>', 'file.ext' or die $!;

# errata removed

...
main::(script.pl:8):    print $x;
  DB<1> x $x
0  'y'