A utility to mark and operate on files in the shell.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

9 lines
146 B

  1. #!/usr/bin/env perl
  2. use warnings;
  3. use strict;
  4. use 5.10.0;
  5. use App::MarkFiles qw(get_dbh);
  6. get_dbh()->prepare(q{DELETE FROM marks})->execute();