#!/usr/bin/perl
$biel = int((time + 3600) % 86400 / 86.4);
print "\@$biel\n";