#!/usr/bin/perl

use warnings;
use strict;

use Image::Magick;

my $anzahl = 0;
for my $file ( <*.png> ) {

    # ausgabe dateiname definieren
    my $newfile = $file;
    $newfile =~ s/png$/tif/;

    # Konvertieren; meldung bei fehler
    my $image = Image::Magick->new();
    my $c = $image->Read($file);
    if ($c) {warn "$c";}
    $c = $image->Write("tif:$newfile");
    if ($c) {warn "$c";}
    $anzahl++;
}

# Umsetzung des ls -m *.png
{
  local $, = ", ";
  print <*.png>;
  print "\n";
}