use strict;
use IO::File;
use Mail::Message::Attachment::Stripper;

# load the mail message into $mail
# extract user folder path into $user_folder
...

my $m = Mail::Message::Attachment::Stripper->new($mail);
my @attachments = $m->attachments;

foreach my $a(@attachments) {
  next if $a->{content_type} !~ /jpe?g|gif/i; # ignore non-jpg/gif attachemnts
  my $f = new IO::File "/home/$user_folder/" . $a->{filename}, "w" or
     die "Can not create file!";
  print $f $a->{payload};
}