#! /usr/bin/perl
use strict;
use warnings;

my $cmd = "/usr/bin/convert";

my $anzahl = 0;
# lese alle Dateien *.png aus dem aktuellen Verzeichnis
for my $file ( <*.png> ) {

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

  # aufruf: convert inputfile outputfile; meldung bei fehler
  if ( system( $cmd, $file, $newfile ) == 0 ) {
        $anzahl++;
  }
  else {
       warn "system($cmd, $file, $newfile) failed: $!\n";
   }
}

# etwas andere Umsetzung des ls -m *.tif; wieder im aktuellen Verzeichnis
print "$anzahl Bild(er) konvertiert.\n",
  join( ", ", <*.tif> ),
  "\n",
;