sub run
{
    my $datapos = tell DATA;

    while (<DATA>)
    {
        chomp;
        print "TEST: *$_*\n";
    }

    seek DATA, $datapos, 0;
}