#!/usr/bin/perl -w

use warnings;

use strict;

my $nameoffile;
my $starttime = 28.374595;
my $endtime = 44.593813;
my $totaltime = $endtime-$starttime;
my $numberoflines = 0;
my $user = 0;
my $pass =0;

print "\n";

print "Name of File:";

$nameoffile = <STDIN>;

open FH, "$nameoffile" or die $!;

while (<FH>) {

	$numberoflines++;

	if ($_ =~ /user/i){
	$user++;
}

	if ($_ =~ /pass/i){
	$pass++;

}}


print "\n\n";

print "Summary:\n\n";

print "There are $numberoflines lines in this file.\n\n";

print "The starting time was 22:28:28:374595\n\n";

print "The ending time was 22:28:44.592813\n\n";

print "The total time of this attack was $totaltime\n\n";

print "User and variations thereof shows up $user times\n\n";

print "Pass and variations thereof shows up $pass times\n\n";