#!/usr/bin/perl -w
use strict;

open(FH, '<', "bad") || die "your textXXX OS says: $!\n";

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