...
my $can = $objects->Canvas(-relief  => "raised", -borderwidth => 2, -width => 225, height => 150)->place(-x => 5, -y => 180);
...