# print this page use CGI; use LWP::Simple; #retrieve web page $query = CGI::new(); $fetchURL=$query->param("url"); unless ($fetchURL) {$fetchURL=$ENV{HTTP_REFERER} } #retrieve this web page $URLPage=get($fetchURL); @doc = split(/\<\!\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-PAGE CONTENT BELOW-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\>/i,$URLPage); @t1 = split(/\<\!\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-END PAGE CONTENT\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\->/i,$doc[1]); $doc[0] = "
Printer Friendly version of: $fetchURL

"; $doc = join('',@doc); #print "Content-Type: text/html\n\n$doc[0]$t1[0]

\n"; print $query->header; print <<"EOF_ILWPR"; ILW.COM - the leading immigration law publisher (www.ilw.com)
ILW.COM
Join 18,000+ subscribers to Immigration Daily, its FREE!
See our books on immigration law at ILW.COM/Books
See our telephone seminars on immigration law at ILW.COM/seminars
See our live workshops on immigration law at ILW.COM/workshops

© Copyright 1999-2007 American Immigration LLC, ILW.COM
[Select "Print..." from the "File" Menu of your browser]

$t1[0]


Join 18,000+ subscribers to Immigration Daily, its FREE!
See our books on immigration law at ILW.COM/Books
See our telephone seminars on immigration law at ILW.COM/seminars
See our live workshops on immigration law at ILW.COM/workshops

© Copyright 1999-2007 American Immigration LLC, ILW.COM
EOF_ILWPR exit;