open my $fh, "<:async", $filename
        or die "Couldn't open '$filename': $!";
    my $line = <$fh>;
    # ... do some busy work without touching $line ...
    print $line;