sleep 1;
`touch xbxbx`; my $x = -M "xbxbx"; print "x=$x\n";