Shell File Manager

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

use FindBin;
use lib "$FindBin::RealBin/../lib";
use Curses::UI;
use File::Spec;
use File::Temp qw ( :POSIX );

my $debug = 0;
my $fh = tmpfile();
open STDERR, ">&$fh";
 
if (@ARGV and $ARGV[0] eq '-d') {
    $debug = 1;
}

my $cui = new Curses::UI (
    -clear_on_exit => 0,
    -debug         => $debug,
);



my $filename;
foreach my $mod (keys %INC) {
	$filename  = $INC{$mod} if ($mod =~ /UI\.pm/);
}

$filename =~ s/\.pm//gi;
$filename = File::Spec->catfile($filename, "Language");

opendir DIR, "$filename" or die "Couldn't open language dir $filename: $!\n";
my @entries = grep /\.pm$/, sort readdir(DIR);
map s/\.pm$//, @entries;

$cui->dialog( "This demo will present all languages of Curses::UI to you\n" .
	      join "\n", @entries);

foreach my $entry (@entries) {
	my $lang = new Curses::UI::Language("$entry");

	$cui->lang($lang);

	$cui->dialog("\u$entry");

	$cui->savefilebrowser();
}