File upload

Hey folkens,
Jeg har lavet et script der modtager en file fra en form. Kommer her:
#!/usr/bin/perl

print "Content-type: text/html\n\n" ;
use CGI;
my $cgi = new CGI;
my $dir = "images";
my $file = $cgi->param('file');
$file=~m/^.*(\\|\/)(.*)/;
my $name = $2;

open(FILE, ">$dir/$name")or die $!;
while(<$file>) {
  print FILE $_;
}
print "$file has been successfully uploaded... thank you.";


Dette script virker fint, bortset fra jeg ikke kan faa det til at uploade i den rigtige folder. Som det ser ud lige nu uploader den til root/cgi-bin/images/
Men jeg ville gerne ha den til at uploade til /root/site/images/
Nogen der kan fortaelle mig hvordan dette skal opnaas?
/Anders