package MyTest;

use strict;
use warnings;

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

    close DATA;
}

1;

__DATA__
TEST 1 2 3