Unrecognized escape \s passed through at test.pl line 12.

##</code><code>##

use strict;
use warnings;

my $file;

opendir DIR, "/srt" or die "Couldn't open directory, $!";
while ($file = readdir DIR) {
    open my $fh, "<", "/srt/$file" or die "Open failed : $!";
    print "$file\n";
    close $fh;
    }
closedir DIR;