#!/usr/bin/perl -w
@files=`ls`;
foreach (@files) {
    @file=split(/\n/, $_);
    @ziew=('./mini640', $_);
    $a=join('-', @ziew);
    print "$file[0] oraz $a\n";
    system("convert $file[0] -resize 210 $a");
}
    system("mkdir ./minis && mv ./mini640* ./minis");