Select Code to Download

#!/usr/bin/perl

...
    print "length of a string = $ln \n";
    $pm->finish();
}

#!/usr/bin/perl

...
    print "length of string \"$string\" = $ln \n";
    $pm->finish();
}