$_ = "blub";
open my $fh, '<', 'text';
<$fh>;
print $_;
while ( my $line = <$fh> ) {
    print $line;
}