package Test;


sub run {

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

}

__DATA__
1



#!/usr/bin/perl
use strict;
use warnings;

use Test;

Test::run();