my $mainitemid
    my @CurTags = canvas->gettags('current');
    for my $tag (@CurTags)
    {
        my $itag = ($tag =~ "C_");
        print "$tag,  $itag\n";
        if ($tag =~ "C_")
        {
            $mainitemid = substr($tag, 2);
        }
    }