use Scaler::Util qw( reftype );

print reftype $cgi;