my $referer=$ENV{HTTP_REFERER};
if($referer eq 'place1')
{ ... }
elsif($referer eq 'place2')
{ ... }
else  #not set or not cared about
{
 #do default actions here
}