oh, didn't see the getprint in there :) OTOH

$ perl -MLWP::Simple -e " getprint( shift ) " http://foo.bar.baz
500 Can't connect to foo.bar.baz:80 (Bad hostname) <URL:http://foo.bar
+.baz>
[download]