use LWP::Simple;$\=$/;$,=$";$;='http://';
for(@ARGV){s}^(?!$;)}$;};$@=(head$_)[4];print$_,$@||'?'}