#!/usr/bin/perl

use strict;
use warnings;

Foo::handle(\*DATA);

package Foo;
sub handle
{
    my $handle = shift;

    my $data = join '', <$handle>;
    print $data;

}
__END__
Some text

Blah blah