use Tk::Separator;

$mw->Separator(-orient => 'horizonal')->pack();
# -or-
$mw->Separator(-orient => 'vertical')->pack();