#! /usr/bin/perl

use File::Basename;

die "$0: missing argument\n" if @ARGV < 2;
$sizemod = shift;

foreach my $file (@ARGV) {
	if (-l $file) {
		$destfile = readlink $file;
		die "$file: $!\n" if !defined $destfile;
		unlink $file || die "$file: $!\n";
		$destfile = dirname($file) . '/' . $destfile;
		system('cp', $destfile, $file) == 0 || die "system: $!\n";
	}

	$size = -s $file;
	die "$file: $!\n" if !defined $size;
	truncate($file,$size+$sizemod) || die "$file: $!\n";
}
