Select Code to Download

package Tie::StorableHash;

...
} unless exists $karma{larsen};

print "$karma{larsen}->{value}\n";

use warnings;
close (STDERR);
...
    print;
}
close ME;

use Win32::API 0.20;

...
        print "GetLongPathName returned '$long'\n";
    }
}

#! perl -sw
use strict;
...
    dTHX;
    return Perl_looks_like_number(aTHX_ var);
}

package Tie::PrintfScalar;

...
$nr = 2;

print "$nr\n";

#include <stdio.h>
#include <windows.h>
...
    printf("main got %d\n", r);
    return 0;
}