title: converting tcl to perl to format date time
body: <p>I need to convert my TCL script to perl, i know bit of perl but not much:</p>
  
  <p>I needed to convert this line to perl:</p>
  
  <pre><code>set current [clock format [clock scan "1 hour ago" -base [clock seconds]] -format "%Y-%m-%d %H"]
  </code></pre>
  
  <p>It prints the current date and 1 hour behind( Since the server returns EST, i want CST).</p>
  
  <p>For example if today's date was 07/31/2012 and the time was 4:20pm(5:20pm EST) it would print </p>
  
  <p>2012-07-31 16</p>
  
  <p>The server returns eastern time, therefore I want it to print 1 hour ago to adjust to central time.
  Note : it should not print 16:20.</p>