#!/usr/bin/perl

@cont = ("asidjaoisdhaiosdhaiushdiuashds");

open(FILE, ">/srv/www/htdocs/tables/rows/base.csv") or die $!;
flock FILE, 2;
print FILE @cont;
flock FILE, 8;
close(FILE);