#!/usr/bin/perl
...
use threads;

....
my($thr) = threads->new(\&showpic);
....
    


sub showpic { 
	system "eog $picfilename";
}