while(<*.pl>)
{
    print $_, "\n";
}