I hve the follwing lines which are ginving error on line 1, please help , thanks
use Digest::MD5 qw(md5); $md5 = new Digest::MD5; open(PASSWD,"/etc/passwd") or die "Unable to open passwd:$!\n"; # these two lines called also be rolled into one: # print Digest::MD5->new->addfile(PASSWD)->hexdigest,"\n"; $md5->addfile(PASSWD); print $md5->hexdigest."\n"; close(PASSWD); Sam Harris, Internet Services Franklin University 201 S. Grant Avenue Columbus, Ohio 43215-5399 Work: (614)-744-8322 Toll free: 1-877-341-6300 ext. 8322 [EMAIL PROTECTED] http://www.franklin.edu/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
