sag doch erstmal, ob du sekunden willst oder millisekunden brauchst. wenn nur sekunden, kannst du eine perl-interne variable $^T benutzen und diesen wert von time() abziehen.
my $running = time() - $^T;
ansonsten schau wie gesagt in die doku von Time::HiRes, das geht dann ähnlich, nur dass du die startzeit auch berechnen musst. wenn du was nicht verstehst, sag bitte genau was.