Select Code to Download

# open the file using _ to avoid multiple system calls invoked by perl
open _,"filename";

my @lines=<_>;

@lines[$#lines];

Scalar value @lines[$#lines] better written as $lines[$#lines]

$lines[-1]