my $pid;
BEGIN { $pid = $$ }
use Module $pid;  # ta da