#!/usr/bin/perl -w

$version = '1.0';

if ( $#ARGV<0 ) { die 
"
Tga2Jpg wandelt TGAs nach JPGs.
Aufruf z.B.: tga2jpg *.tga
(Es entsteht aus jedem xxx.tga ein xxx.jpg im selben Verzeichnis.

"; }

foreach $file (@ARGV)
{
    # Alles nach dem letzten Punkt wegschneiden:
    $file =~ s/(.*)\..+/$1/;
    system("cjpeg -quality 99 -sample 2x1 $file.tga > $file.jpg");
}