# Create an xpm image of this graph
my $img = $w->Photo (-format => "Window", -data => oct ($w->id));
$img->write ("speed.xpm", -format => "xpm");