use strict;
use warnings;
use Exporter qw(import);
my $realhome;
if ($^O eq 'MSWin32') {
    require Win32;
    import ('CSIDL_LOCAL_APPDATA');
    $realhome = Win32::GetFolderPath('CSIDL_LOCAL_APPDATA');
}