#!/usr/bin/perl

use strict;
use warnings;

my @args = @ARGV;
my $edgesFileName = $args[$#args];
$edgesFileName =~ s/\.bmp$/-edges.bmp/i;

system('./edge-detect', @args);
system('display', $edgesFileName);