$ cat Foo.pm 
package Foo;

sub data {
    while (<DATA>) {
        warn __PACKAGE__." <$_>\n";
    }
}

1;

__DATA__
23
42
99
$ perl -wle'use Foo;
Foo::data()'
Foo <23
>
Foo <42
>
Foo <99
>