#Used.pm
package Used;

use strict;
1;

sub called {
    my $fh = shift;
    my $data = <$fh>;
    print "Used::called read: $data\n";
}

#User.pl
#!/usr/bin/perl -w

use strict;
use Used;

Used::called(\*DATA);

__DATA__
This is a test