#!/usr/bin/perl

use warnings;
use strict;
use subs qw(srand);

sub srand {
    if ($] >= 5.004 and not @_) {
        warn "Unqualified call to srand redundant in Perl $]";
    } else {
        # call the real srand via the CORE package
        CORE::srand @_;
    }
}