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

open STDOUT, ">", "files.out";
print "test\n";