sub getimage { my $self = shift; my $stuff = shift; # Set the correct header $self->header_props( -type=>$stuff->{mime} ); open ( IMAGE , $stuff->{image} ) or die "Screaming $!"; return join '', ; }