perl-tk segmentation problem

[nagandla]

Hi All,

I am Trying to Previewing a .mpg file using fireswamp.previously my
system is mandrake 10.Now i swiched to ubuntu 5.1.
here when i try to preview the file main app is closing saying thta
segmentation fault.

here is code for that
starting i declared the $selected_file variable with some fiel types.

sub preview
{
my $selected1 = $files_selected->curselection;
if(defined($selected1))
{
my $file = $files_selected->get($selected1);
`fireswamp $selected_file > /dev/null 2>&1 &`;
$status_msg_create = "Previewing the file :$selected_file";
$approved_bttn->configure(-state => 'normal');
push(@files_previewed,$file);

}
else
{
$status_msg_create = " ";
return;
}
}

Can Any one give suggestion......

Lami