my ($confn,$pegfn,$pirfn,$pittmfn) = map { "$conf::backup_dir/$_-$tim.csv" }
		("consum", "peg", "pir", "pittm");

$mech->follow_link(url_regex=>qr/sitestat\.com.*pir.*export_csv/i);
	
$mech->save_content_binary($pirfn);