#!/usr/bin/perl use strict; #use DBI; use C4::Search; print "hello";