in reply to Re^2: Use of uninitialized value
in thread Use of uninitialized value

This worked. 
   if ($filesize){ 
      copy($$file, $$file . '_backup');
   }

[download]

In Section Seekers of Perl Wisdom