$ perl -M'IO::Compress::Zip qw(zip)' -e ' zip "abc" => "abc2.zip", Stream => 0 ' 
$ cd out
$ rm abc 
$ unzip ../abc2.zip 
Archive:  ../abc2.zip
  inflating: abc                     
$ stat abc | grep Mod
Modify: 2017-01-11 09:47:50.000000000 +0000
$ rm abc
$ cd ..
$ zip abc3.zip abc
  adding: abc (stored 0%)
$ cd out
$ unzip ../abc3.zip 
Archive:  ../abc3.zip
 extracting: abc                     
$ stat abc | grep Mod
Modify: 2017-01-11 09:47:52.000000000 +0000