Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
UnFilter \*STDOUT;

print "And the plane is also blue.\n";
  2. or download this
    sub PRINT {
    my $self = shift;
    my $fh = *{ $self->{fh} };
    print $fh, $self->{output}->(@_);
}
  3. or download this
    sub PRINT {
    my $self = shift;
    my $fh = *{ $self->{fh} };
    CORE::print $fh $self->{output}->(@_);
}
  4. or download this
    use subs qw(print printf);