if ($pid = fork) {
     # parent
} elsif (defined($pid)) {
     exec "display -title %d/%f $fullfile";
} else {
     warn "Cannot fork: $!";
}