c:\@Work\Perl\monks\sravs448>perl alt_branch_reset_1.pl
[[transaction 1234567; promote; 2014/08/01 10:22:37 ; user: john
  # Performing a "promote" on file.
  /./abc/desf/test.pl 138699/1 (138700/1)

transaction 4578643; promote; 2014/08/01 10:22:37 ; user: sam
  /./abc/desf/test.pl 138699/1 (138700/1)
]]

1234567      john       Performing a "promote" on file.
4578643      sam