sub cftsain { # Copy the image file if not there or changed. my ($xxfn1, $xxfn2) = @_; my @dd = (0, $xxfn1, $xxfn2, (stat "$xxfn1")[9], (stat "$xxfn2")[9]); die "Can't stat '$xxfn1'. Maybe it's missing?" if ! defined $dd[3]; if (!-e $xxfn2) { ...