Select Code to Download

  open(IO,"< $file") or die "$!";

  open(IO,"< $file") or die "cannot open $file for input: $!\n";

use Carp qw/croak/;

...
        wantarray ? @data : join( '' => @data );
}