#!/usr/bin/perl

use strict;
use warnings;

my %config = (
	convert => "/usr/bin/convert",
	);

while( <STDIN> ) {
	chomp;

	my $f = $_;

	my @args;
	push( @args, $config{'convert'} );
	push( @args, $f );
	push( @args, "-resize", "604" );
	push( @args, "-auto-orient" );
	push( @args, "${f}_fb.jpg" );

	print join( " ", @args, "\n" );
	system( @args );
}

