#!/usr/bin/perl -w
use strict;

my $cmd = "sync && sysctl -w vm.drop_caches=3";
my $result = `$cmd`;
print $result;
