abcdef1

How can I turn on debug for fucntion sendSMTP ?? What is the function for var $debug ??? [CODE] #!/usr/bin/perl -w use Socket; use strict; my($mailTo) = 'chuikingman@yahoo.com.hk'; my($mailServer) = 'mail.hgcbroadband.com'; my($mailFrom) = 'medined@mtolive.com'; my($realName) = "chuikingman"; my($subject) = 'Test send_mail'; my($body) = "Test Line One.\nTest Line Two.\n"; $main::SIG{'INT'} = …

Hi, I have below code : [code]my($abc) = "fred<hello>3hello"; $abc =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/; if (defined($1)) { print "$1\n"; } else { print "not found\n"; } }[/code] What is the code doing ?? what function of the regular expression [code]$abc =~ /^[^\d]{2,4}<([^>]+)>\d?\1$/;[/code] Please advice what it do ??