#!/usr/local/bin/perl -w
###########################################
# meme-first - Simple meme generator
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
use strict;
use Imager;

my $img = Imager->new( 
    file => "turtle.jpg" ) or
  die Imager->errstr();

my $font = Imager::Font->new( file => 
  "/usr/share/fonts/truetype" .
  "/msttcorefonts/Impact.ttf" );

$img->string( x => 337, y => 102,
              string => "ARRIVING FIRST",
              font => $font, size => 60,
              aa => 1, color => 'white' );

$img->string( x => 315, y => 600,
              string => "SO NOT WORTH IT.",
              font => $font, size => 60,
              aa => 1, color => 'white' );

$img->write( file => "turtle-meme.jpg" );