$localssize=(stat ($file))[7];
#           ^^
      print "$file $localsize $remotesize $theGMTime"; #<-line 25
#                        ^

##</code><code>##

use strict;
use warnings;