Help for this page

Select Code to Download


  1. or download this
    my $pick_real_print = 1;
    use vars qw(&printish);
    ...
    CORE::print "Here is the real deal\n";
    printish "printing\n";