[dws@labrat test]$ perl total.pl
  2[dws@labrat test]$
  ^