Select Code to Download

package PM::SharedFileTasks;

...
}

1;

#!/usr/bin/env perl

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

$ cat pm_1076160_1.txt
Record 1
...
...
Record n-1
ID3:Name3:Street3:City3:State3:Status3

Function: 'modify'; File: 'pm_1076160_1.txt'
Status1
...
City2
Function: 'move'; File: 'pm_1076160_3.txt'
City3