#!/usr/bin/env perl6 use Net::FTP; my @locals = ( "/update/", ); my @remotes = ( "/usbip/"…
use Win32::Clipboard; use Win32::GuiTest qw/SendKeys/; while(1) { my @time = localtime(tim…
#!/usr/bin/perl -w #from 1970-1-1 to now, total seconds. my $time = time(); my $local_time…
#!/usr/bin/perl #Caution: The following program doesnot provide ANY WARRANTY for commercia…
#!/usr/bin/env perl -w #Description: This script is for looking up,adding,deleting user ce…
# -------------------------------------------------------------------- # function: Return …
#!/usr/bin/perl -w #creat on 2012-04-27 #author wanghz $im_thinking_of=int(rand 10); print…
****************************************************** +----------------------------------…
use File::Find; use Win32::File; &File::Find::find(\&wanted,"C:\\httpd", "C:\\test…
use Mail::POP3Client; $mail = new Mail::POP3Client("username", "password", "pop3.yourserve…
#!/usr/bin/perl # $Id: msg2smtp.pl,v 1.8 2007/07/29 16:30:25 polak Exp $ my $usage = qq! $…
#!c:\perl\bin use Net::SMTP; print "Content-type: text/html \n\n"; $server = 'mail.mydomai…
Recursive Find File In Directory