#!/usr/bin/perl

open(DATE, "date|");
$date = <DATE>;
# Tue Aug 15 16:17:12 CST 1995
($h, $m) = ( $date =~ /\w+ \w+ \d+ (\d+):(\d+):\d+/ );
print "Son las ", ($h<=12? $h : $h-12),
      ($m==0? "" : " con $m minutos"), "\n";
# Son las 4 con 17 minutos