in reply to saving a file

what am I overlooking?

Error checking:

open( my $SCNT, '>', $scnt) or die "Cannot open '$scnt' for writing: $!\n";

In Section Seekers of Perl Wisdom