System Functions Perl

#!/usr/bin/perl -w
$filename = "nofile";
open(TMP, $filename)
    or die "Can't open \"$filename\"";