Because malware.

move.pl

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long qw(:config pass_through);
use File::Path qw(make_path);
use File::Copy;
use File::Spec;

my $opts = {
  dest => "/mnt/malware",
};

GetOptions($opts,"debug");
while (my $dir = shift @ARGV) {
  opendir(my $dir_fh,$dir) or die "Couldn't open directory $dir for reading! ($!)";
  while (my $file = readdir $dir_fh) {
    my ($one,$two) = ($file =~ m/^(..)(..)/);
    my $dest = File::Spec->catfile($opts->{dest},$one,$two);
    if (! -d $dest) {
      make_path($dest, { mode => 0755 }) or die "Couldn't mkdir $dest! ($!)";
    }
    move(File::Spec->catfile($dir,$file),$dest);
  }
  closedir $dir_fh;
}

sha256rename.pl

#!/usr/bin/perl

die "Usage: $0 [list of files to rename]" unless scalar @ARGV;

unless(fork) {
  pipe R,W;
  if (fork) {
    open STDOUT, ">&W";
    close R;
    exec("sha256sum",@ARGV);
  } else {
    open STDIN, "<&R";
    close W;
    while (<STDIN>) {
      my ($sha,$filename) = split(m/\s+/,$_);
      link($filename,$sha);
      unlink($filename);
    }
  }
}