which date | perl -e "$_ = <STDIN>; $_ =~ s|/|\\|g; print $_;"