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

# PrgDir als Umgebungsvariable verwenden; Ansonsten als Perl-Variable definieren und verwenden
# Ersatzkommando /bin/mv
my $cmd = "/bin/mv";

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

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

# aufruf: convert inputfile outputfile; meldung bei fehler
    system( $cmd, $file, $newfile ) == 0
        or warn "system($cmd, $file, $newfile) failed: $!\n";

    $anzahl++;
}

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