#!/usr/bin/perl -w

# suggested by Rafael Laboissiere <rafael@debian.org>

my $file;

if (eval "require Curses::UI") {

    my $cui = new Curses::UI (-clear_on_exit => 1);
    $file = $cui -> loadfilebrowser (
	-title => "Select file to edit with tweak",
	-editfilename => 1,
    );
    
} else {
    
    print "tweak file: ";
    $file = <STDIN>;

}

exec "/usr/bin/tweak $file";
