#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use UI::Dialog;

my $d = new UI::Dialog ( 
                title => 'SelectFile',
                order => [ 'kdialog', 'zenity', 'xdialog' ] 
                );
my $fileIn = $d->fselect( path => '/path/to/my/files/' );
say "Selected: $fileIn";