#!/usr/bin/perl use DBI; use DBD::mysql; print "Hello"; exit;