use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;

$ua = LWP::UserAgent->new;
$hh = HTTP::Headers->new(
  User-Agent => 'Mozilla/5.0 (Windows NT 5.1; rv:21.0) Gecko/20100101 Firefox/21.0',
  Accept => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
  Accept-Language => 'en-us,en;q=0.7,ru;q=0.3',
  Accept-Encoding => 'gzip, deflate',
  Connection => 'keep-alive',
);
$ua->default_headers( $hh );

$cookie_jar = HTTP::Cookies->new( );
$ua->cookie_jar($cookie_jar);

@rename = (
  294  ,
  9806 ,
  9807 ,
);

for $ren (@rename) {
  $res = $ua->get("http://www.giftman.ru/show.php?id=$ren");
  print $res->header('Location')."\n";
}