#use Math::Round;
use POSIX;
use Win32;

use strict;
use warnings;

my $basetime = 1484784000;

#code with POSIX
my $days = floor((time()-$basetime) / 86400);

#code without POSIX
#my $days = sprintf("%d", (time()-$basetime) / 86400);

#code with Math::Round
#my $days = Math::Round::nearest_floor(1, (time()-$basetime) / 86400);

my $bigString = "We've been going for $days days.n";

Win32::MsgBox($bigString);