programming-examples/perl/File/When you're done with a file, call close.pl

close(filehandle);

#!/usr/bin/perl -w

# Test of open and die with $!.

$filename = "nofile";

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