#!/usr/bin/perl -w

use strict;
use DBI;        

        	my $user="@@@@@";
        	my $pw="******";
       	my $database="mydb";

        	my $dsn = "dbi:Oracle:$database";
        	my $connect = DBI->connect($dsn,$user,$pw) or die "Unable to connect: $DBI::errstr\n";
        	print "\n Connection Established\n";
        
                my ($query,$query_handle);

                # PREPARE THE QUERY
                $query = qq/Delete from <mytable1> /;
                $query_handle = $connect->prepare($query);

                # EXECUTE THE QUERY
                $query_handle->execute();
                print "\n Deletion in progress...\n";

                $query_handle->finish();

                $connect->commit;
                print "\n Commit Done\n";

                $connect->disconnect();