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

my $data = Safe->new()->rdo('./data_to_import.dat');