Select Code to Download

 $item->set_simple_transform ($x, $y, $scale, $rotation)

sub event_handler{

...
        print "$x  $y\n";

}

#!/usr/bin/perl
use warnings;
...
}
####################################################################