Modify SQL with Passed in Parameters

You do not have to declare variables in Perl.
This code tests input var and assigns SQL code to $get_call var:

if ($call_type eq "open")

{$get_call="where close_date is null";}

else

{$get_call="where close_date is not null";}