use Archive::Tar;
$JOE = $ENV{"TEMP"};
my $tar = Archive::Tar->new;

#I then define $city, $category and $page_number

$tar->add_files("$JOE/$city/$category/$page_number", "$JOE/$city/$category/filedesc");
$tar->write('c:\files.tar');

##</code><code>##

	$tar->rename( "$JOE\$city\$category\$page_number", "/$city/$category/$page_number" );
	$tar->rename( "$JOE/$city/$category/filedesc", "/filedesc" );