system("perl move.pl");
##</code><code>##

#!/usr/bin/perl -w
#script_name = move.pl
use strict;
use diagnostics;
use File::Copy;

my $file_html  = undef;
my $file_png   = undef;
my $file_css   = undef;
my $javascriptje=undef;

my @files_html = <*.html>;
foreach $file_html (@files_html) {
    move( "$file_html", "./to_move/$file_html" ) or die "Copy html failed: $!";
}

my @files_css = <*.css>;
foreach $file_css (@files_css) {
    copy( "$file_css", "./to_move/$file_css" ) or die "Copy css failed: $!";
}

my @javascriptjes = <*.js>;
foreach $javascriptje (@javascriptjes) {
    copy( "$javascriptje", "./to_move/$javascriptje" ) or die "Copy javascr failed: $!";
}

my @files_png = <*.png>;
foreach $file_png (@files_png) {
    move( "$file_png", "./to_move/$file_png" ) or die "Copy png failed: $!";
}