Check if itemid exists, with Perl

[revloc02c]

I made a quest where characters can create items that is similar to what Sonikboom did here. Items cannot be redeemed until the server resets which he says he does every night. His script then checks to see if a day has passed before he redeems the new item.

Is there a way in Perl to check to see if an item exists? If it does summon it, and if not tell the character they'll have to wait until server resets.