Select Code to Download

#!/usr/bin/perl -w
use strict;
...
open(FH, '<', "bad") || die "your textXXX OS says: $!\n";

while (<FH>){} # prevents warning FH only used once