package Foo;
use strict;

my $sep;

sub set_file {
    my $file = shift;
    $sep = shift || "\n";
    open FH, "< $file" or die "Cannot open $file for reading: $!";
}

sub get_line {
    local $/ = $sep;
    my $temp = <FH>;
    return $temp;
}

1;