Select Code to Download

#! perl
use strict;
...

print "\nIn file '$filename', the FAVOURITE flag is ",
      ($favourite ? 'SET' : 'NOT SET'), "\n";

12:53 >perl 610_SoPW.pl

In file 'mymessage.1004', the FAVOURITE flag is NOT SET

12:57 >