Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
}

dumpit();
  2. or download this
    main::mysub:
main::mysub Pad has 17 entries
1: PVNV (0x1b49b24) "$subvar" = NULL (0x1b49b44)
2: PVNV (0x1b49ab4) "@subvar" = AV (0x1b49a74) undef
4: PVNV (0x1b49a44) "%subvar" = HV (0x1b49a24) HASH
  3. or download this
    sub dumpit {
    my $out;
...
    # Restore STDOUT
    open STDOUT, ">&", $oldout or die "Can't dup \$oldout: $!";
}