Untitled

Error while trying to rename files in script and cmd line
$dir = "/home/naveen/mp3tag/testfolder";
opendir(DMP3, $dir) || die("Cannot open directory");
@files= readdir(DMP3;
foreach $f (@files)
{
  unless ( ($f eq ".") || ($f eq "..") )
  {
    $oldfile = $f;
    $newfile = $f;
    $newfile =~ s/ /_/g;
    print "Old file: $oldfile t";
    print "New file: $newfile";
    print "n";
    rename ("$oldfile", "$newfile") or warn "Couldn't rename $oldfile to $newfile !n";
  }
}

$ rename Jacques Greene - Clark (Original Mix).mp3 JG - C.mp3
Bareword "mp3" not allowed while "strict subs" in use at (eval 1) line 1.

$ rename Jacques Greene - Clark (Original Mix) JG - C
Can't locate object method "Original" via package "Mix" (perhaps you forgot to load "Mix"?) at (eval 1) line 1.

use strict;
use warnings;
use File::Copy;

my $dir = '/home/naveen/mp3tag/testfolder';
my @mp3s = glob ("$dir/*.mp3");

for my $mp3 (@mp3s) {
    my $new_mp3 = $mp3;
    $new_mp3 =~ s/s/_/g;
    move($mp3, $new_mp3);
}

use strict;
use warnings;
use File::Copy qw(move);

for (@ARGV) {
    my $org = $_;
    tr/ /_/;
    move($org, $_) or warn "Couldn't move $org to $_: $!";
}

perl script.pl /home/naveen/mp3tag/testfolder/*.mp3