[lug] perl

[j davis]

hello,
  I wanted to thank everyone who helps me with perl....so heres a little
something i wrote....  :) (my first web-enabled scrip)
you can run this scrip once a hour. also sorry about wrap.
jd

#! /usr/bin/perl
@list = 
(lickalicka,allteens,asiannudes,ebonycafe,pornbuster,realhardcore,webmature,webyoung,younglatina,youngamateurs);
@listb = 
(chicabonbon,newandinnocent,orgyfrenzy,racialbang,heavyknockers,virginsparty,kikylesbo,assbreakers,webteenagers,sweetblack);

$now = `date +%l`;
`mkdir $now`;
foreach $list (@list){
	`cd $now wget http://hourly.gammae.com/pictures/$list.jpg`;
}
foreach $listb (@listb){
	`cd $now wget http://hourly.gammae.com/pictures/$listb.jpg`;
}


thanks,
jd

jd at taproot.bz
http://www.taproot.bz

_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com