Select Code to Download

#!/usr/bin/perl -w
use strict;
...

rename ($old_name, $new_name)
  or warn "Can't rename '$old_name' to '$new_name': $!";

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 lin
+e 9, <STDIN> line 1.