#!/usr/bin/perl
use strict;
use warnings;
use bytes;

if ($#ARGV != 0) {
    die("Need a file name as first argument!\n");
}

my $longest = '';
my $longest_on = 0;
my $num_lines = 0;

open(FILE, '<'.$ARGV[0]) or die("File open failed!\n");

for ($num_lines = 1 ; my $line = <FILE> ; $num_lines++) {
    if (length($line) > length($longest)) {
        $longest = $line;
        $longest_on = $num_lines;
    }
}

if ($longest_on) {
    print 'File had total of ', $num_lines, ' lines.', "\n";
    print 'Longest line found on line ', $longest_on, ' with ', length($longest), ' characters.', "\n";
    print 'The line was: ', $longest;
}
else {
    die("The file had no readable lines!\n");
}