package Employee;

use strict;
use warnings;

sub new{
	my ($class, $args) = @_;
	my $self = bless {
		name=> $args->{name},
		hourlywage => $args->{hourlywage},
		hours => $args->{hours}	
	}, $class;
}

sub print_student{
	my $self = shift;
	return "Employee info: name: $self->{name} hours: $self->{hours} wage: $self->{hourlywage}\n"	
}

1;