#!/usr/bin/perl

use warnings;
use strict;

my @filenames = ();

## read filenames
while(<>){
    chomp;
    push ( @filenames, $_);
}

## check filenames
while ( my $file = pop(@filenames) ){
    print "Datei \"$file\"...\n";
    system("eog $file");

    print "Umbenennen? j/n [n] ";
    chomp ( my $in = <>);
    
    if ( $in eq "j" ){
	print "ok\n";
    }
    elsif ( $in eq "q" ){
	last;
    }
}