Like this:

#!/usr/bin/perl

use File::Copy qw(copy);

copy('dataset1.csv', 'dataset2.csv') or die "Failed to copy dataset: $
+!";
[download]