while ($stmt = <DATA>)
{
    eval $stmt;
    ...
}