Select Code to Download

use strict;
use warnings;
...
        return substr($file, -(length($file) -1 -$back));
    }
}