test script

#!perl

my %data;
$data{Percentage} = "55";

#####################################################################

my $prc = "unknown";

if ( defined $data{Percentage} )
{
	if ( $data{Percentage} lt 10 )
	{
	    $prc = ".|||||||||";
	}
	elsif ($data{Percentage} lt 20 )
	{
	    $prc = "|.||||||||";
	}
	elsif ($data{Percentage} lt 30 )
	{
	    $prc = "||.|||||||";
	}
	elsif ($data{Percentage} lt 40 )
	{
	    $prc = "|||.||||||";
	}
	elsif ($data{Percentage} lt 50 )
	{
	    $prc = "||||.|||||";
	}
	elsif ($data{Percentage} lt 60 )
	{
	    $prc = "|||||.||||";
	}
	elsif ($data{Percentage} lt 70 )
	{
	    $prc = "||||||.|||";
	}
	elsif ($data{Percentage} lt 80 )
	{
	    $prc = "|||||||.||";
	}
	elsif ($data{Percentage} lt 90 )
	{
	    $prc = "||||||||.|";
	}
	elsif ($data{Percentage} lt 100 )
	{
	    $prc = "|||||||||.";
	}
}

#####################################################################

print $prc . "\n";