13 lines
184 B
Perl
13 lines
184 B
Perl
|
|
||
|
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 $! ";
|
||
|
|
||
|
|