Upstream version 5.34.104.0

[platform/framework/web/crosswalk.git] / src / third_party / WebKit / LayoutTests / http / tests / xmlhttprequest / resources / print-referer.cgi

#!/usr/bin/perl -wT

use CGI qw(:standard);
my $cgi = new CGI;

print "Content-type: text/plain\n\n"; 
if ($cgi->referer) {
  print $cgi->referer;
} else {
  print "NO REFERER";
}