#!/usr/bin/perl

use warnings;
use strict;
use Term::ReadLine;

my $term = Term::ReadLine->new('Eingabe');
my $prompt = "Umbenennen? j/n [n] ";

## read filenames
while(<>){
    chomp;
    my $file = "$_";
    
    print "Datei \"$file\"...\n";
    system("eog $file");

    my $res = $term->readline($prompt);
        
    if ( $res eq "j" ){
	print "ok\n";
    }
    elsif ( $res eq "q" ){
	last;
    }
}