my $PathEntry = "PathEntry";
if (!eval { require Tk::PathEntry; 1 }) {
    $PathEntry = "Entry";
}
$e = $mw->$PathEntry->pack;