#!/usr/bin/perl

sub main {
  open (my $release, "<", "/etc/os-release");

  while (<$release>) {
    chomp ($_);

    if (($_ =~ /ID=/) || ($_ =~ /ID_LIKE=/)) {
      print $_, "\n";

      # if ($_ =~ /[U,u]buntu/) {
  		#     print "ubuntu \n";
  	  # }
      #
  	  # elsif ($_ =~ /[D,d]ebian/) {
  		#     print "debian \n";
  	  # }
      #
  	  #  elsif ($_=~ /[F,f]edora/) {
  		#     print "fedora \n";
  	  #  }
      #
  	  #  elsif ($_ =~ /[A,a]rch/) {
  		#      print "arch \n";
  	  #  }
      #
    	# else {
    	# 	print "else\n";
    	# }
    }
  }

  close ($release);
}

main();
exit;