use strict;
package Foo;

sub line {
    my $fh = shift;
    return <$fh>;
}

package main;

open FH, $file; # depending on the perl version, use 3 argument open
my $line = Foo::line(*FH);