#sub sobelEdgeDetection($);

sub sobelEdgeDetection { }

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

my $file = shift or die "need a file\n";;

my $p = new Image::Magick;
$p->Read($file);

$p->Charcoal('0x1');

$p->Write($0.'.jpg');

exit;