Select Code to Download

Perl version: 5.8.0
Redhat version: Red Hat 5.3

#!/usr/bin/perl

...

    return 1;
}

GLOB(0x98dfbdc)
111

use Switch;
and
sub test_switch { ... }

111
111

$ perl -MO=Deparse test.pl

...
    print "$line\n";
}
close $fh