use Ask qw( file_selection info );

my $file = file_selection("Please choose a file!");
info("You chose: $file");