foreach $p (<$path/*.pl>)
{
    $lbs->insert("end", $p); # "normal" appending
}