programming-examples/perl/Statement/The or part allows for a statement to be executed if the main part fails.pl

#!/usr/bin/perl -w

$filename = "nofile";

open(TMP, $filename) or die "Can't open \"$filename\"";