#!/usr/bin/env perl

use strict;
use warnings;

use PM::SharedFileTasks;

{
    # In modify.pl
    my @files = qw{pm_1076160_1.txt pm_1076160_2.txt};
    PM::SharedFileTasks::handle(modify => \@files);
}

{
    # In move.pl
    my @files = qw{pm_1076160_2.txt pm_1076160_3.txt};
    PM::SharedFileTasks::handle(move => \@files);
}