#!/usr/bin/perl

use strict;
use warnings;

use Employee;
use EmployeeList;


print "Enter the name of the file to open: ";
my $input_file = <STDIN>;
chomp $input_file;

open(my $file_handle, "<", $input_file) or die "failed to open < input_file: $!\n";


my @obj_array = ();

while (my $row = <$file_handle>){
	my @splitrow = split ' ', $row;
	my $Employee1 = Employee->new({
			name =>$splitrow[0],
			hourlywage =>$splitrow[1],
			hours =>$splitrow[2]
	});
	print $Employee1->print_Employee();
	push @obj_array, $Employee1;
}