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');