|
|
 Up |
  |
Author: ElaEla
Date: May 3, 2008 23:32
In slave perl prog, there're some print codes.
However, when the master perl calling the slave one by system(command), the
slave perl print cannot be redirected to STDOUT. how to solve that?
|
| |
|
| |
10 Comments |
|
|
Author: PerlFAQ ServerPerlFAQ Server
Date: May 3, 2008 18:03
This is an excerpt from the latest version perlfaq3.pod, which
comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
to review and update the answers. The latest version of the complete
perlfaq is at http://faq.perl.org .
--------------------------------------------------------------------
3.20: How can I hide the source for my Perl program?
Delete it. :-) Seriously, there are a number of (mostly unsatisfactory)
solutions with varying levels of "security".
First of all, however, you *can't* take away read permission, because
the source code has to be readable in order to be compiled and
interpreted. (That doesn't mean that a CGI script's source is readable
by people on the web, though--only by people with access to the
filesystem.) So you have to leave the permissions at the socially
friendly 0755 level.
|
| Show full article (3.38Kb) |
|
| |
no comments
|
|
|
Author: arikarik
Date: May 3, 2008 16:58
I wrote a script that scrape information off staples.com and I'm
getting different results if I run it stand alone or I fork the
script.
running the script stand alone I get the expected results and when
forking the script it seems like it ignores the tag. any help<br />
is appreciated:<br />
this is part of the script:<br />
sub GetStaples {<br />
my $oem_PN = $_[0];<br />
my $ItemDesc = $_[1];<br />
my @ItemDesc = split(',',$ItemDesc);<br />
my $Item;<br />
my $price;<br />
my $description;<br />
my $type;<br />
my $title;<br />
my $numofitems;<br />
my $agent = WWW::Mechanize->new(autocheck => 1, cookie_jar =><br />
undef);<!-- google_ad_section_end --></div>
</div>
</td></tr>
<tr><td align="left"><a id="msglnk_81352751" class="rose_10" href="javascript: sM('comp.lang.perl.misc',81352751);">Show full article (1.66Kb)</a> </td></tr>
<tr><td align="right"><a href="http://www.nnseek.com/e/comp.lang.perl.misc/weird_issue_with_html_tokeparser_and_fork_81352751t.html#comments" class="rose_10">
<b>4</b> Comments</a></td></tr>
</table>
</td></tr>
<tr><td align="center"><img src="http://www.nnseek.com/img/razdel.gif"><img src="http://www.nnseek.com/img/b.gif" width="93%" height="1px"></td></tr>
<tr><td align="center" valign="top">
<table width="93%" cellpadding="0" cellspacing="10" border="0" style="margin: 0 0 0 2;">
<tr><td align="left" class="text">
<table cellspacing="0" cellpadding="0" border="0">
<tr valign="middle" class="text">
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_3_23_can_i_write_useful_perl_programs_on_the_command_81338927tv.html" title="Thread like tree"><img src="http://www.nnseek.com/img/thread_as_tree.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_3_23_can_i_write_useful_perl_programs_on_the_command_81338927t.html" class="title" title="FAQ 3.23 Can I write useful Perl programs on the command line?"><!-- google_ad_section_start -->FAQ 3.23 Can I write useful Perl programs on the command line?<!-- google_ad_section_end --></a></td>
<td> </td>
<td><a id="lnk_81338927" href="javascript: sH('comp.lang.perl.misc',81338927);" title="show raw header"><img id="rhi_81338927" src="http://www.nnseek.com/img/open.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a id="cnt_81338927" href="javascript: sC('comp.lang.perl.misc',81338927);" title="quick contact us (Spam/Bad Encoding/Copyright Voilation/Inappropriate-Abuse/Privacy Voilation)"><img id="cnti_81338927" src="http://www.nnseek.com/img/open_scf.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/FAQ-3-23-Can-I-write-useful-Perl-programs-on-the-command_s.html" title="Search FAQ 3 23 Can I write useful Perl programs on the command in Newsgroups with NNSeek"><img border="0" src="http://www.nnseek.com/img/16.ico"></a></td>
<td> </td>
<td><a href="http://boardreader.com/s/FAQ 3 23 Can I write useful Perl programs on the command.html?aaid=1473" title="Search FAQ 3 23 Can I write useful Perl programs on the command in boards with BoardReader"><img border="0" src="http://boardreader.com/images/favicon.gif"></a></td>
</tr>
</table></br>
<div id="sC1_81338927" style="width:100%"><div style="width:100%; display:none" id="sC_81338927"></div></div>
<div id="el1_81338927" style="width:100%; overflow:auto"><div style="width:100%; display:none" id="el_81338927"></div></div></br>
<span class="rose_10"><b>Author:</b> <a class="link" href="http://www.nnseek.com/a/APK909130mfDp/PerlFAQ Server/">PerlFAQ Server</a><span id="at81338927" style="display:none">PerlFAQ Server</span></span></br>
<span class="rose_10"><b>Date:</b> <span id="ts81338927">May 3, 2008 12:03</span></span></br></br>
<div style="width:100%; overflow:auto; display:none" id="ab_n81338927" ></div>
<div style="width:100%; overflow:auto;" id="ab81338927" >
<div id="ab81338927_0" class=""><!-- google_ad_section_start -->This is an excerpt from the latest version perlfaq3.pod, which<br />
comes with the standard Perl distribution. These postings aim to <br />
reduce the number of repeated questions as well as allow the community<br />
to review and update the answers. The latest version of the complete<br />
perlfaq is at <a href="http://faq.perl.org" rel="nofollow" class="url" target="_blank">http://faq.perl.org</a> .<br />
<br />
--------------------------------------------------------------------<br />
<br />
3.23: Can I write useful Perl programs on the command line?<br />
<br />
Yes. Read perlrun for more information. Some examples follow. (These<br />
assume standard Unix shell quoting rules.)<br />
<br />
# sum first and last fields<br />
perl -lane 'print $F[0] + $F[-1]' *<br />
<br />
# identify text files<br />
perl -le 'for(@ARGV) {print if -f && -T _}' *<br />
<br />
# remove (most) comments from C program<br />
perl -0777 -pe 's{/\*.*?\*/}{}gs' foo.c<br />
<br />
# make file a month younger than today, defeating reaper daemons<br />
perl -e '$X=24*60*60; utime(time(),time() + 30 * $X,@ARGV)' *<br />
<br />
# find first unused uid<br />
perl -le '$i++ while getpwuid($i); print $i'<!-- google_ad_section_end --></div>
</div>
</td></tr>
<tr><td align="left"><a id="msglnk_81338927" class="rose_10" href="javascript: sM('comp.lang.perl.misc',81338927);">Show full article (1.87Kb)</a> </td></tr>
<tr><td align="right"><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_3_23_can_i_write_useful_perl_programs_on_the_command_81338927t.html#comments" class="rose_10">
<b>5</b> Comments</a></td></tr>
</table>
</td></tr>
<tr><td align="center"><img src="http://www.nnseek.com/img/razdel.gif"><img src="http://www.nnseek.com/img/b.gif" width="93%" height="1px"></td></tr>
<tr><td align="center" valign="top">
<table width="93%" cellpadding="0" cellspacing="10" border="0" style="margin: 0 0 0 2;">
<tr><td align="left" class="text">
<table cellspacing="0" cellpadding="0" border="0">
<tr valign="middle" class="text">
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_4_20_how_do_i_unescape_a_string_81326639tv.html" title="Thread like tree"><img src="http://www.nnseek.com/img/thread_as_tree.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_4_20_how_do_i_unescape_a_string_81326639t.html" class="title" title="FAQ 4.20 How do I unescape a string?"><!-- google_ad_section_start -->FAQ 4.20 How do I unescape a string?<!-- google_ad_section_end --></a></td>
<td> </td>
<td><a id="lnk_81326639" href="javascript: sH('comp.lang.perl.misc',81326639);" title="show raw header"><img id="rhi_81326639" src="http://www.nnseek.com/img/open.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a id="cnt_81326639" href="javascript: sC('comp.lang.perl.misc',81326639);" title="quick contact us (Spam/Bad Encoding/Copyright Voilation/Inappropriate-Abuse/Privacy Voilation)"><img id="cnti_81326639" src="http://www.nnseek.com/img/open_scf.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/FAQ-4-20-How-do-I-unescape-a-string_s.html" title="Search FAQ 4 20 How do I unescape a string in Newsgroups with NNSeek"><img border="0" src="http://www.nnseek.com/img/16.ico"></a></td>
<td> </td>
<td><a href="http://boardreader.com/s/FAQ 4 20 How do I unescape a string.html?aaid=1473" title="Search FAQ 4 20 How do I unescape a string in boards with BoardReader"><img border="0" src="http://boardreader.com/images/favicon.gif"></a></td>
</tr>
</table></br>
<div id="sC1_81326639" style="width:100%"><div style="width:100%; display:none" id="sC_81326639"></div></div>
<div id="el1_81326639" style="width:100%; overflow:auto"><div style="width:100%; display:none" id="el_81326639"></div></div></br>
<span class="rose_10"><b>Author:</b> <a class="link" href="http://www.nnseek.com/a/APK909130mfDp/PerlFAQ Server/">PerlFAQ Server</a><span id="at81326639" style="display:none">PerlFAQ Server</span></span></br>
<span class="rose_10"><b>Date:</b> <span id="ts81326639">May 3, 2008 06:03</span></span></br></br>
<div style="width:100%; overflow:auto; display:none" id="ab_n81326639" ></div>
<div style="width:100%; overflow:auto;" id="ab81326639" >
<div id="ab81326639_0" class=""><!-- google_ad_section_start -->This is an excerpt from the latest version perlfaq4.pod, which<br />
comes with the standard Perl distribution. These postings aim to <br />
reduce the number of repeated questions as well as allow the community<br />
to review and update the answers. The latest version of the complete<br />
perlfaq is at <a href="http://faq.perl.org" rel="nofollow" class="url" target="_blank">http://faq.perl.org</a> .<br />
<br />
--------------------------------------------------------------------<br />
<br />
4.20: How do I unescape a string?<br />
<br />
It depends just what you mean by "escape". URL escapes are dealt with in<br />
perlfaq9. Shell escapes with the backslash ("\") character are removed<br />
with<br />
<br />
s/\\(.)/$1/g;<br />
<br />
This won't expand "\n" or "\t" or any other special escapes.<br />
<br />
--------------------------------------------------------------------<!-- google_ad_section_end --></div>
</div>
</td></tr>
<tr><td align="left"><a id="msglnk_81326639" class="rose_10" href="javascript: sM('comp.lang.perl.misc',81326639);">Show full article (1.26Kb)</a> </td></tr>
<tr><td align="right"><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_4_20_how_do_i_unescape_a_string_81326639t.html#comments" class="rose_10">
<b>1</b> Comment</a></td></tr>
</table>
</td></tr>
<tr><td align="center"><img src="http://www.nnseek.com/img/razdel.gif"><img src="http://www.nnseek.com/img/b.gif" width="93%" height="1px"></td></tr>
<tr><td align="center" valign="top">
<table width="93%" cellpadding="0" cellspacing="10" border="0" style="margin: 0 0 0 2;">
<tr><td align="left" class="text">
<table cellspacing="0" cellpadding="0" border="0">
<tr valign="middle" class="text">
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/who_is_unsetting_this_variable_81320495tv.html" title="Thread like tree"><img src="http://www.nnseek.com/img/thread_as_tree.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/who_is_unsetting_this_variable_81320495t.html" class="title" title="Who is unsetting this variable?"><!-- google_ad_section_start -->Who is unsetting this variable?<!-- google_ad_section_end --></a></td>
<td> </td>
<td><a id="lnk_81320495" href="javascript: sH('comp.lang.perl.misc',81320495);" title="show raw header"><img id="rhi_81320495" src="http://www.nnseek.com/img/open.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a id="cnt_81320495" href="javascript: sC('comp.lang.perl.misc',81320495);" title="quick contact us (Spam/Bad Encoding/Copyright Voilation/Inappropriate-Abuse/Privacy Voilation)"><img id="cnti_81320495" src="http://www.nnseek.com/img/open_scf.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/Who-is-unsetting-this-variable_s.html" title="Search Who is unsetting this variable in Newsgroups with NNSeek"><img border="0" src="http://www.nnseek.com/img/16.ico"></a></td>
<td> </td>
<td><a href="http://boardreader.com/s/Who is unsetting this variable.html?aaid=1473" title="Search Who is unsetting this variable in boards with BoardReader"><img border="0" src="http://boardreader.com/images/favicon.gif"></a></td>
</tr>
</table></br>
<div id="sC1_81320495" style="width:100%"><div style="width:100%; display:none" id="sC_81320495"></div></div>
<div id="el1_81320495" style="width:100%; overflow:auto"><div style="width:100%; display:none" id="el_81320495"></div></div></br>
<span class="rose_10"><b>Author:</b> <a class="link" href="http://www.nnseek.com/a/APK911486mfDp/Daniel Pfeiffer/">Daniel Pfeiffer</a><span id="at81320495" style="display:none">Daniel Pfeiffer</span></span></br>
<span class="rose_10"><b>Date:</b> <span id="ts81320495">May 3, 2008 03:54</span></span></br></br>
<div style="width:100%; overflow:auto; display:none" id="ab_n81320495" ></div>
<div style="width:100%; overflow:auto;" id="ab81320495" >
<div id="ab81320495_0" class=""><!-- google_ad_section_start -->In makepp <a href="http://makepp.sourceforge.net" rel="nofollow" class="url" target="_blank">http://makepp.sourceforge.net</a>/ I noticed an unexplicable (to me) <br />
evaporation of variable values.<br />
<br />
In Makesubs.pm we have the following closure, where $_[1] is a Makefile object <br />
and $CC is used nowhere else:<br />
<br />
my $CC;<br />
sub f_CC { $CC ||=<br />
$_[1]->expand_expression('find_program gcc egcc pgcc c89 cc' . <br />
(::is_windows?' cl bcc32':''), $_[2]) }<br />
<br />
In Makefile.pm expand_variable line 426 in the inner else branch will call the <br />
above function:<br />
<br />
for( "$self->{PACKAGE}::f_$var" ) { # Name of the function with no arguments?<br />
# Localizes $_; causes very weird errors if $_ is messed up.<br />
my $orig = $_;<br />
tr/-/_/; # Convert - to...<!-- google_ad_section_end --></div>
</div>
</td></tr>
<tr><td align="left"><a id="msglnk_81320495" class="rose_10" href="javascript: sM('comp.lang.perl.misc',81320495);">Show full article (2.61Kb)</a> </td></tr>
<tr><td align="right"><a href="http://www.nnseek.com/e/comp.lang.perl.misc/who_is_unsetting_this_variable_81320495t.html#comments" class="rose_10">
<b>1</b> Comment</a></td></tr>
</table>
</td></tr>
<tr><td align="center"><img src="http://www.nnseek.com/img/razdel.gif"><img src="http://www.nnseek.com/img/b.gif" width="93%" height="1px"></td></tr>
<tr><td align="center">
<!-- Begin: AdBrite -->
<script type="text/javascript">
var AdBrite_Title_Color = 'FF5800';
var AdBrite_Text_Color = '000000';
var AdBrite_Background_Color = 'FFFFFF';
var AdBrite_Border_Color = 'CCCCCC';
var AdBrite_URL_Color = '003399';
</script>
<span style="white-space:nowrap;"><script src="http://ads.adbrite.com/mb/text_group.php?sid=605719&zs=3436385f3630" type="text/javascript"></script><!--
--><a target="_top" href="http://www.adbrite.com/mb/commerce/purchase_form.php?opid=605719&afsid=1"><img src="http://files.adbrite.com/mb/images/adbrite-your-ad-here-banner.gif" style="background-color:#CCCCCC;border:none;padding:0;margin:0;" alt="Your Ad Here" width="11" height="60" border="0" /></a></span>
<!-- End: AdBrite --></td></tr>
<tr><td align="center"><img src="http://www.nnseek.com/img/razdel.gif"><img src="http://www.nnseek.com/img/b.gif" width="93%" height="1px"></td></tr>
<tr><td align="center" valign="top">
<table width="93%" cellpadding="0" cellspacing="10" border="0" style="margin: 0 0 0 2;">
<tr><td align="left" class="text">
<table cellspacing="0" cellpadding="0" border="0">
<tr valign="middle" class="text">
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_4_21_how_do_i_remove_consecutive_pairs_of_char_81302831tv.html" title="Thread like tree"><img src="http://www.nnseek.com/img/thread_as_tree.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_4_21_how_do_i_remove_consecutive_pairs_of_char_81302831t.html" class="title" title="FAQ 4.21 How do I remove consecutive pairs of characters?"><!-- google_ad_section_start -->FAQ 4.21 How do I remove consecutive pairs of characters?<!-- google_ad_section_end --></a></td>
<td> </td>
<td><a id="lnk_81302831" href="javascript: sH('comp.lang.perl.misc',81302831);" title="show raw header"><img id="rhi_81302831" src="http://www.nnseek.com/img/open.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a id="cnt_81302831" href="javascript: sC('comp.lang.perl.misc',81302831);" title="quick contact us (Spam/Bad Encoding/Copyright Voilation/Inappropriate-Abuse/Privacy Voilation)"><img id="cnti_81302831" src="http://www.nnseek.com/img/open_scf.gif" border="0" align="bottom"></a></td>
<td> </td>
<td><a href="http://www.nnseek.com/FAQ-4-21-How-do-I-remove-consecutive-pairs-of-char_s.html" title="Search FAQ 4 21 How do I remove consecutive pairs of char in Newsgroups with NNSeek"><img border="0" src="http://www.nnseek.com/img/16.ico"></a></td>
<td> </td>
<td><a href="http://boardreader.com/s/FAQ 4 21 How do I remove consecutive pairs of char.html?aaid=1473" title="Search FAQ 4 21 How do I remove consecutive pairs of char in boards with BoardReader"><img border="0" src="http://boardreader.com/images/favicon.gif"></a></td>
</tr>
</table></br>
<div id="sC1_81302831" style="width:100%"><div style="width:100%; display:none" id="sC_81302831"></div></div>
<div id="el1_81302831" style="width:100%; overflow:auto"><div style="width:100%; display:none" id="el_81302831"></div></div></br>
<span class="rose_10"><b>Author:</b> <a class="link" href="http://www.nnseek.com/a/APK909130mfDp/PerlFAQ Server/">PerlFAQ Server</a><span id="at81302831" style="display:none">PerlFAQ Server</span></span></br>
<span class="rose_10"><b>Date:</b> <span id="ts81302831">May 3, 2008 00:03</span></span></br></br>
<div style="width:100%; overflow:auto; display:none" id="ab_n81302831" ></div>
<div style="width:100%; overflow:auto;" id="ab81302831" >
<div id="ab81302831_0" class=""><!-- google_ad_section_start -->This is an excerpt from the latest version perlfaq4.pod, which<br />
comes with the standard Perl distribution. These postings aim to <br />
reduce the number of repeated questions as well as allow the community<br />
to review and update the answers. The latest version of the complete<br />
perlfaq is at <a href="http://faq.perl.org" rel="nofollow" class="url" target="_blank">http://faq.perl.org</a> .<br />
<br />
--------------------------------------------------------------------<br />
<br />
4.21: How do I remove consecutive pairs of characters?<br />
<br />
(contributed by brian d foy)<br />
<br />
You can use the substitution operator to find pairs of characters (or<br />
runs of characters) and replace them with a single instance. In this<br />
substitution, we find a character in "(.)". The memory parentheses store<br />
the matched character in the back-reference "\1" and we use that to<br />
require that the same thing immediately follow it. We replace that part<br />
of the string with the character in $1.<br />
<br />
s/(.)\1/$1/g;<!-- google_ad_section_end --></div>
</div>
</td></tr>
<tr><td align="left"><a id="msglnk_81302831" class="rose_10" href="javascript: sM('comp.lang.perl.misc',81302831);">Show full article (2.15Kb)</a> </td></tr>
<tr><td align="right"><a href="http://www.nnseek.com/e/comp.lang.perl.misc/faq_4_21_how_do_i_remove_consecutive_pairs_of_char_81302831t.html#comments" class="rose_10">
no comments
</a></td></tr>
</table>
</td></tr>
</table>
</td>
<!-- End Middle -->
</tr>
</table>
<!-- End Body -->
</div><!-- Begin Footer -->
<table width="100%" cellpadding="0" cellspacing="0" border="0" >
<tr><td bgcolor="775A6E"><img src="http://www.nnseek.com/img/null.gif" height="2" width="100%"></td></tr>
<tr><td bgcolor="D4C9C5"><img src="http://www.nnseek.com/img/null.gif" height="2" width="100%"></td></tr>
<tr><td bgcolor="D4C9C5" align="center"><a href="http://clickaider.com/" title="Tracked by ClickAider ClickAider"><img src="http://hit.clickaider.com/i/button-36.gif" border="0"/></a></td></tr>
<tr><td bgcolor="D4C9C5"><img src="http://www.nnseek.com/img/null.gif" height="2" width="100%"></td></tr>
</table>
<!-- End Footer -->
<!-- mytrix f:0211 -->
<script language="javascript"><!--
Mu="u8306.45.mytrix.com";Md=document;Mnv=navigator;Mp=0;
Md.cookie="b=b";Mc=0;if(Md.cookie)Mc=1;Mrn=Math.random();
Mn=(Mnv.appName.substring(0,2)=="Mi")?0:1;Mt=(new Date()).getTimezoneOffset();
Mz="p="+Mp+"&rn="+Mrn+"&c="+Mc+"&t="+Mt;
if(self!=top){Mfr=1;}else{Mfr=0;}Msl="1.0";
//--></script><script language="javascript1.1"><!--
Mpl="";Msl="1.1";Mj = (Mnv.javaEnabled()?"Y":"N");Mz+='&j='+Mj;
//--></script><script language="javascript1.2"><!--
Msl="1.2";Ms=screen;Mpx=(Mn==0)?Ms.colorDepth:Ms.pixelDepth;
Mz+="&wh="+Ms.width+'x'+Ms.height+"&px="+Mpx;
//--></script><script language="javascript1.3"><!--
Msl="1.3";//--></script><script language="javascript"><!--
My="";My+="<a href='http://"+Mu+"/cnt?cid=830645&f=4&p="+Mp+"&rn="+Mrn+"' target='_blank'>";
My+="<img src='http://"+Mu+"/cnt?cid=830645&"+Mz+"&sl="+Msl+"&r="+escape(Md.referrer)+"&fr="+Mfr+"&pg="+escape(window.location.href);
My+="' border=0 width=1 height=1 alt='mytrix'>";
My+="</a>";Md.write(My);//--></script><noscript>
<a href="http://u8306.45.mytrix.com/cnt?cid=830645&f=4&p=0" target="_blank">
<img src="http://u8306.45.mytrix.com/cnt?cid=830645&p=0" alt='mytrix' border='0' width=1 height=1 >
</a></noscript>
<!-- mytrix -->
<!-- BEGIN clickaider -->
<script language="JavaScript">
<!--
clickaider_cid = "6a18d6b6-4";
clickaider_track_links = "ext";
// -->
</script>
<script id="clickaiderscript" language="JavaScript" src="http://hit.clickaider.com/clickaider.js"></script>
<noscript>
<img src="http://hit.clickaider.com/pv?c=6a18d6b6-4" alt="ClickAider" border="0" width="1" height="1" />
</noscript><!-- END clickaider -->
</body>
</html> | | |
