Instead of points 3 & 4 you could replace it with... 3. Load SQL module from CPAN.

Something like SQL::Abstract (https://metacpan.org/module/SQL::Abstract) or Fey (https://metacpan.org/module/Fey) would slot in easy for most tasks like this:

  use SQL::Abstract;
  my $sql = SQL::Abstract->new;

  $dbh->do( $sql->delete("my_table") );