#!/usr/bin/perl
use Modern::Perl;
-use CGI;
-use C4::Auth;
+use CGI qw ( -utf8 );
+use C4::Auth qw( check_api_auth );
use C4::Items qw( ModDateLastSeen );
-my $input = new CGI;
+my $input = CGI->new;
# Authentication
my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($input, { tools => 'inventory' });