File Perl

  1. Home
  2. Perl
  3. File
  4. Writes to the standard error file
#!/usr/local/bin/perl 
open(MYFILE, "file1") || die ("Unable to open input file file1\n"); 
print STDERR ("File file1 opened successfully.\n"); 
$line = ; 
while ($line ne "") { 
   chop ($line); 
   print ("\U$line\E\n"); 
   $line = ; 
}