Help for this page

Select Code to Download

Select or download this

unless (open (USERNAME, "username")) 
   {
     print "ERROR:Cannot open username file.\n";
     exit(1); # ERROR
    }

Select or download this

my $filename = 'foo';
open my $filehandle, '<', $filename or die "opening '$filename': $!";