open(EXPORT_GRAPHIC,">picture.png");
binmode EXPORT_GRAPHIC;
print EXPORT_GRAPHIC $picture->png;
close EXPORT_GRAPHIC;