Select Code to Download

  #!/usr/bin/perl -w
use strict;
...
    print "YES\n" ;
}
1;

#!/usr/bin/perl -w
use strict;
...
    print 'YES!';
}
1;

 In scalar context, returns the number of times the
 expression was true.