#!/usr/bin/perl

use strict;
use warnings;

local $SIG{ALRM} = sub { die "timeout" };
alarm(10);
webserverdialog();
alarm(0);

sub webserverdialog {
    while(1) {
        my $bla = 1+1;
    }
}