my $line = <$fh>;  # Filehandle?
my $file = <*fs>;  # Glob?

##</code><code>##

my $line   = $fh->readline();  # Filehandle!
my ($file) = glob("*fs");        # Glob!