D:\PerlMonks>emp1.pl
Enter your option
add
Enter employee details
Enter employee id
1
Enter employee name
Mike
Enter employee salary
15
Enter employee phone number
123456789
print() on closed filehandle FH at D:\PerlMonks\emp1.pl line 55, <STDIN> line 5.

D:\PerlMonks>