#!/usr/bin/perl

use strict;
use warnings;

my $qla_dir = 'drivers/scsi/qla2xxx';
unless ( -d $qla_dir) {
   die "You must change dir to your kernel 2.6 source dir.\n";
}
system "rm -rf $qla_dir && tar xjf /usr/src/qla2x00-8.00.02.tar.bz2";
print "Your qla2x00 driver has been updated.\n";

