#!/usr/bin/perl

use warnings;
use strict;

my $file = "/home/jesus/src/zenity/tudu.data";
local $/ = "";
open IN , "<", $file or die "Cannot open tudu.data: $!";
my $t = <IN>;
close IN;

info($t);
exit 0;

sub info {
    my ($text) = @_;
    system("zenity", "--info", "--text=$text");
}