#!/usr/bin/perl
use warnings;
use strict;

my $file = shift || $0;
my $len =  8;

open FILE, $file or die "$!";

# write to your scaled file instead of stdout
while (sysread FILE, my $data, $len){ 
    # multiply your data here  
    syswrite STDOUT, $data };