Store PHP code in a JPEG

gistfile1.pl

#!/usr/bin/perl

# write_jpg.pl - Store PHP code inside of a JPEG
# Darian Anthony Patrick <[email protected]>
#
# Demonstration of masquerading PHP code inside
# of a file identifiable as JPEG format

use perl5i;
use IO::All;

#Create "JPEG image data" and "JFIF standard" magic patterns
my $pat = pack('H4xxxxa*', 'ffd8', 'JFIF');

# Output magic patterns followed by PHP code
io('/tmp/this_contains_php.jpg')->print(
	$pat,
	'<?php echo "\nThis output is from PHP code stored inside of a \"JPEG\".\n"; ?>'
);

say 'Completed "JPEG" creation.';