Using dialog with Perl