#! /usr/bin/perl
# show.pl
use strict;
use warnings;
use Image::Magick;
# use display;
if ("~/Bilder") {
        print "Vergleichwert DIR: Bilder ist da: $? = Null \n";
        system (`cd ~/Bilder`);
}
# Bild einlesen
# $orig = Image::Magick->new();
# $orig->Read ('Abies-alba.jpg');
&main::display ('Abies-alba.jpg');
# Undefined subroutine &main::display called at /home/miro/Perles/show.pl line 15.
# geht auch nicht
# $image->write ('Abies-alba.jpg');
# &main::display "Abies-alba.jpg;";