Help for this page

Select Code to Download

Select or download this

sub vert
{
...
}

my ($scrap, $count1, $count2) = vert( 34, 44, 0, 0, 0 );