Please enter a filename: testX
Can't locate object method "dirname" via package "testX" (perhaps you forgot to load "testX"?) at /home/cgmd/bin/learning_perl/test7.pl line 9, <STDIN> line 1.