use strict;
use warnings;
. . . 
if ($^O eq "Linux") {
use DBI;
}
. . .