#!/usr/bin/perl
use warnings;
use strict;
use CGI 'redirect';
use LWP::Simple 'head';

if(head('http://siteB.com'))
{
  print redirect('http://siteB.com');
}
else
{
  print redirect('/404'); # already at siteA
}