Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
my $lng = length($msg);
print "The length of the message is: $lng\n";
print "This is the message itself: [$msg]\n";

Select or download this

cdruser1@cdr1:~/cdr/scripts> ./test1.pl 
The length of the message is: 7
This is the message itself: [1324]