use strict; use warnings; use Test::More tests => 1; my $param_value='123456789'; is (length($param_value), 5, 'Length of $param_value') or diag "\$param_value = >$param_value<";