Checking for Existence in Perl

Every update will by necessity have a seq number
so I can perform the test

if ($seq) # if existing call

{set update display vars and sql_code}

else

{set insert display vars and sql_code}