use strict;
use warnings;

my $pid = fork;
if ($pid){
 chomp (my $nummer = <STDIN>);
 kill 15, $pid;
}else{
 exec 'gmolden';
}