##
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use MIME::Base64;
my $arg=new CGI;
my $fetch_photo=$arg->param('imagedata');
my $decoded=MIME::Base64::decode_base64($fetch_photo);
my $filename;
$filename=int rand(1000).".png" if $fetch_photo=~/png/;
$filename=int rand(1000).".jpg" if $fetch_photo=~/jpg/;
open(FILE, ">img/$filename") or die 'err';
binmode FILE;
print FILE $decoded;
close(FILE);