my $str = scalar localtime $s->mtime();

##</code><code>##

use POSIX qw/strftime/;
my $str = POSIX::strftime "%F %T", localtime $s->mtime();