Select Code to Download

my $line = <$fh>;

my @lines = <$fh>;

array</i> context, but this is a frowned upon term as the variables ne
+edn't be an array. 

<code>
my( $v1, $v2, $v3, $v4, $v5 ) = <$fh>;

my @lines = scalar <$fh>;

print join '', 'fred', 'bill', undef, 'john';;
Use of uninitialized value in join or string at (eval 3)
fredbilljohn