if ( open ( PICTF,"> smepath/file.jpeg" ) )
{
  binmode PICTF;
  print PICTF $contentpic;
  close (PICTF);
}

my ($x, $y, $info) = imgsize("somepath/file.jpeg");