#!/usr/bin/perl -w
use Image::Magick;

my $file="1251748705.jpg";
my $rfile="thumbnail.gif";
my $rrfile="thumbnail2.png";

my @cmd = ( "convert,
            $rfile
            qw[( +clone
                 -threshold -1
                 -virtual-pixel black
                 -spread 10
                 -blur 0x3
                 -threshold 50%
                 -spread 1
                 -blur 0x.7
               )
               +matte
               -compose Copy_Opacity
               -composite
            ], $rrfile" );


system("convert -size 500x180  $file -auto-orient -thumbnail 250x90   -unsharp 0x.5  $rfile");
system(@cmd) == 0 or die "Couldn't launch [@cmd]: $!/$?";