The following test script (if I understand it correctly) is taken from the Llama book and fails to execute properly:

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

use File::Spec;

print "Please enter a filename: ";
chomp(my $old_name = <STDIN>);

my $dirname = dirname $old_name;
my $basename = basename $old_name;

$basename =~ s/^/not/; 

my $new_name = File::Spec->catfile($dirname, $basename);

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

The outcome from attempting this script is:

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.
[download]

What error have I made in structuring this code? Thanks!