use warnings;
use strict 'refs';
open my $FH, '/tmp/test.txt';
while (my $Line = GetLine($FH)) {
    do {
        print "$Line"
    };
}
use File::Glob ();
sub GetLine {
    use warnings;
    use strict 'refs';
    my $line = glob($_[0]);
    return $line;
}